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Preface 


If someone had asked me to write this book two decades ago, I would have simply 
refused the suggestion—not because I couldn't do so but because of the mountain of 
code necessary to create the application with its menus, forms, reports, and so on. The 
appearance of GUIs and RAD has not only eased the burden on developers but has also 
enabled application development to be easily demonstrated in book form. 

Oracle Application Express (APEX) is a unique development platform that helps you 
develop cloud-based applications rapidly. In my book Oracle Application Express 5 for 
Beginners, I practically demonstrated almost every significant feature of Oracle APEX. 
This book is an attempt to take my readers to the next level with some more useful stuff. 

You might be one of those readers who is already familiar with Oracle APEX and 
has some experience in developing simple applications but who lacks the required 
knowledge that is needed to develop a comprehensive system. In this book, you will 
bridge this gap by developing a complete general ledger accounting system named 
The Cloud Accountant, which will be accessible through a variety of devices including 
desktops, laptops, and the latest smartphones. Besides the development of a functional 
application (which you can deploy in your organization or even in other organizations 
to earn some handsome bucks), the book demonstrates many new techniques to further 
enhance your APEX development skills. 

This book is also ideal for those who have been developing applications in Oracle 
Forms and now want to try web development using their existing expertise. 

If you know what Oracle Application Express is and are also comfortable with SQL 
and PL/SQL, then grab this book to learn something that is not available anywhere else. If 
you are a novice, then you are encouraged to read my book Oracle Application Express 5 
for Beginners (ISBN-13: 978-1-512-00330-7). 

Good luck! 
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CHAPTER 1 


Introduction to Cloud 
Computing and the 
Application Project 





The phenomenal growth of information technology—especially the advent of cloud 
computing—is changing the landscape of information technology, business, and 
personal computing. If applied correctly, information technology can increase the 
productivity of enterprises and enable them to focus on increasing profits and lowering 
costs. Cloud computing in its simplest form means accessing and storing data and 
applications over the Internet, instead of on a native computer's hard drive. The purpose 
of this book is to give you a taste of cloud computing by developing a functional general 
ledger accounting system for and in the cloud. 


1.1 An Introduction to Cloud Computing 


Swift adaptation is the key to success for the survival of any business in today’s dynamic 
economic environment. If one is running a profitable business today, this doesn’t mean 
that the current business model will provide the same growth in the future. In addition to 
adapting to changing government regulations, businesses must explore and implement 
new areas to cope with current IT trends. In this book, you will be given a taste of cloud 
computing, which provides an effective computing infrastructure for today’s business 
whenever or wherever it is needed. 

Many businesses have already switched their IT resources to the cloud because, 
according to them, this model delivers a more cost-effective and efficient way to serve 
their customers, partners, and suppliers. In contrast, there are many businesses that 
are looking at this model more cautiously with respect to the security of their business 
processes and intellectual assets. The biggest advantage provided by cloud computing 
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is that it eliminates many of the complex constraints found in the traditional computing 
environment, including cost, space, time, and power. 

The following are the three main types of cloud services being delivered by various 
cloud service providers: 


e Infrastructure as a Service (IaaS): In this type, the service 
provider delivers computer hardware (servers, operating systems, 
virtualization technology, networking technology, and storage) 
as a service. Amazon’s Elastic Compute Cloud (Amazon EC2) is 
a good example of IaaS in which a web interface is provided to 
customers to access virtual machines. 


e Platform as a Service (PaaS): This layer offers development 
environments to IT organizations to develop Internet-facing 
cloud applications. 


e Software as a Service (SaaS): This is one of the first implementations 
of cloud services where a service provider hosts business 
applications in its own vicinity and delivers them to its customers. 


1.2 Public vs. Private Cloud 


The primary objective of designing applications in Oracle Application Express (APEX) 

is that these applications are accessible anywhere and at any time. APEX, hence, neatly 
supports cloud computing. To achieve this objective, you are provided with the following 
two cloud deployment models to host your applications: 


Public cloud: A public cloud is a computing model wherein a 
service provider provides computing resources to the general 
public over the Internet. These resources include hardware, 
networks, storage, services, and applications. Public cloud 
services may be free or offered on a pay-per-usage model. 
Some companies (including the Oracle Corporation) offer 

a database cloud service, which has two main components: 
RESTful web service access (which allows access to the data in 
your database cloud service through simple URIs) and Oracle 
Application Express (for creating and deploying all kinds of 
applications in a browser-based environment). The database 
cloud service is simple to obtain, simple to administer, and 
simple to use to develop and deploy all types of applications. 
This simplicity is complemented by a simple pricing structure, 
based on only two metrics: storage and data transfer. In 
addition, the simplicity of the public cloud means lower costs 
for your own IT staff. Universal access to the components of 
the public cloud through a browser dramatically simplifies 
the maintenance overhead for your cloud-based solutions. 
Applications delivered through the public cloud can be 
accessed from a wide variety of client platforms including 
Windows, Apple, or mobile devices. Oracle Corporation 


CHAPTER 1 ™ INTRODUCTION TO CLOUD COMPUTING AND THE APPLICATION PROJECT 


provides its own cloud computing platform called Oracle 
Cloud. For further details, see https: //cloud.oracle.com. 


Private cloud: This term refers to the data centers inside your 
company’s firewall. Within your organization you can have a 
single Oracle Database supporting many departments with 
each having their own workspaces to build applications. 
Each of these workspaces can be granted access to one or 
more schemas as appropriate. The term may also apply to 

a private space dedicated to your company within a cloud 
provider’s data center. Private clouds enable organizations to 
have complete control and visibility over security, regulatory 
compliance, service levels, and functionality. 


Oracle APEX applications are built on technology that resides within an Oracle 
Database, so all your applications can be easily run on any Oracle platform, from the 
Oracle Database Cloud Service to your in-house data center to Oracle Database XE on your 
laptop. Once you have developed an application either on your PC or in the cloud, simply 
export the application and then import into any other Oracle Database where you have a 
compatible version of APEX installed. Naturally you may also deploy your application on 
the Oracle Database Cloud Service and then allow access to it from anywhere in the world. 


1.3 What Is Accounting? 


Since you will be developing an accounting application in the upcoming chapters, it 

is necessary to have a little background of accounting. Accounting can be defined as 
follows: the systematic recording, reporting, and analysis of financial transactions of 

a business. Accounting provides financial information to stakeholders. Stakeholders 
include banks, suppliers, investors, government agencies, and people engaged with 

an organization, such as its owners and employees. Banks need financial information 

to assess the condition of a firm before lending money. A profitable organization with 
positive cash flows can easily acquire loans as compared to one suffering heavy losses 
and little money. Suppliers need financial information to consider trade credit. Investors 
will invest their money only in profitable organizations. They determine the profitability 
of an organization by reading its financial statements. Every business concern is bound 
by law to report on its revenue and expenses to local government agencies for income tax 
purposes. In a nutshell, accounting performs the following tasks: 


e Evaluates profit or loss of a business concern 
e Provides detailed information about a firm’s net worth 


e Reports on assets, liabilities, owner’s equity, and profitability 


1.4 Accounting System 


Organizations use accounting systems (either manual or computerized) to store, 
manage, and provide their financial information to their stakeholders. These systems 
are implemented to produce financial statements, including income statement, balance 
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sheet, and other accounting reports. They store detailed records of accounts, such as 
cash, accounts receivable (due from customers), accounts payable (due to suppliers/ 
banks), fixed assets, stocks, and so on. This book will teach you how to develop a 
computerized accounting system to store the financial information of a fictitious 
company in an organized manner and will provide instructions for creating all the 
generic financial reports that will be produced with a mouse click. 


1.5 General Ledger 


In enterprise resource planning (ERP) software, the general ledger module works 
as a central repository for accounting data transferred from other modules such as 
fixed assets, product planning, material purchasing, inventory control, distribution, 
marketing, and HR. A general ledger carries all the accounts for recording financial 
transactions relating to a company's assets, liabilities, owners’ equity, revenues, 
and expenses. It is known as the backbone of any accounting system because it 
ties together all of the component transaction processing cycles and systems in an 
organization. 

A sound general ledger system has the following broad objectives: 


e Recording of all accounting transactions promptly and accurately 
e Posting of transactions to the proper accounts 


e Maintaining an equality of debit and credit balances among the 
accounts 


e Generating reliable and timely financial reports for stakeholders 
The following are the major functions performed by a general ledger system: 


e Data collection: Business transactions arise when some sale or 
purchase event occurs. In the real world, these transactions are 
handled by their respective operation processing systems, such 
as sales and purchase systems. These systems interface with the 
general ledger system in order to feed their daily transactions. 
Transactions arising from other sources are recorded though 
specially designed forms, called vouchers. You will use the latter 
method in this book for transaction processing. 


e Classification and coding: For proper maintenance of accounts, 
daily transactions are classified and coded according to a 
prescribed chart of accounts. 


e Validation: To ascertain the accuracy of data, every transaction 
goes through a process of validation that is implemented through 
various control procedures. These validations include checks on 
amounts, use of valid account codes from the chart of accounts, 
transaction period verification, and so on. 
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e Reporting: A general ledger system provides three primary 
financial statements: income statement, the balance sheet, and 
a statement of cash flows. While the most familiar financial 
outputs are the financial statements, numerous other reports 
(for example, trial balance, ledgers, budget variance reports, and 
so on) are also generated by a general ledger system to fulfill the 
information requirements of the stakeholders. 


1.6 The Cloud Accountant General Ledger 
Project 


Running your business gets a whole lot easier when you can access your books anywhere 
and anytime. The Cloud Accountant being developed in this book is a complete double- 
entry cloud accounting application that lets you keep in touch with your business all 

the time. The intensely competitive market in today’s economy requires that managers 
continuously improve the way they work and make decisions. Today’s successful managers 
demand instantaneous information that is both accurate and useful. A traditional 

desktop accounting system simply cannot cope with these high demands. Only by taking 
advantage of the power of the latest technology can these demands be met. 

The goal of the Cloud Accountant is to remove most of the boring bookkeeping work 
from the business. The application will take over all the simple and monotonous tasks 
that can eat up precious time. For instance, it will automate all period-end tasks such as 
closing the books, transferring the closing balances forward, and so on, with just a few 
clicks. It also facilitates the recording of all purchase and sales transactions, bill payments, 
and so on. Since the application can process and retrieve business transactions instantly, 
there will be a quicker response time to customers, suppliers, and creditors, which 
will ensure better business relations. In addition, it will produce professional-looking 
financial reports and accounting records quickly and easily. The Cloud Accountant will 
free up more time, which can be used to work on improving other areas of the business. 

A paperless environment means less work and less confusion since all information 
is stored electronically and can be accessed instantaneously. A computerized system will 
also produce more accurate records. The logic created in this application ensures that 
all entries are posted properly and that the calculations of key financial data are done 
correctly. This greatly reduces the potential for human error that is prevalent in manual 
accounting systems. Because of the inherent structure within the Cloud Accountant, 
the accounting system around the computer will be simplified and more organized. As 
a result, the flow of information in all stages of the business cycle will be more logical 
and efficient. Of great importance are the security features built into the application, 
which ensure that only authorized people have access to company’s sensitive financial 
information. In this application, you will define your own security levels that will allow 
users to access only what you want them to access. This ensures that data will remain 
safe, can be easily maintained, and is neat and organized. 
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1.7 Development Environment 


Although you can develop the application locally on your own PC, it is a good idea 

to develop it in the cloud. This way, not only will you enjoy a new development 
environment, but you will also have a complete infrastructure provided by Oracle 
available for you. Create a free workspace on https: //apex.oracle.com. After creating 
the workspace, create a new desktop database application, which will contain Home and 
Login pages by default. My application is named The Cloud Accountant, and I associated 
it with a new schema named GL. I selected Universal Theme (42) for the application, 

and for the time being set Authentication Scheme for the application to the default 
Application Express Accounts scheme. Later you will create a custom authentication 
scheme to implement a custom authentication and application access mechanism. 


1.8 Application Segments 


Table 1-1 lists all the segments of this application you will develop in this book. 


Table 1-1. Application Segments 


Menu Application Segment APEX Page Number 
Home Home (Executive Dashboard) 1 
Setup Companies 3,4 
Fiscal Year 5 
Voucher Types 7,8 
Application Segments 19, 20 
User Groups 21 
Users 22,23 
Cost Centers 13,14 
Chart of Accounts 15, 16 
Opening Bank Transactions 17 
Accounts for Financial Statements 18 
Select Switch (Company, Year, and Month) 30 
Transactions Vouchers (to record transactions) 42, 43, 44 
Utilities Reconcile Banks 51, 52 
Search Transaction 53 
Copy Chart of Accounts 54 
Budget Allocation 55 
Reset Password 56 
(continued) 
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Table 1-1. (continued) 


Menu Application Segment APEX Page Number 
Reports Vouchers 71 

Ledgers 12 

Trial Balance 73 

Bank Reconciliation 74 

Budget 75 

Financial Statements 76-77 

Feedback Report 302 
Closing Process Vouchers Verification 94, 95 

Month Closing 96 

Temporary Year End 93 

Permanent Year End 97 
Mobile App Mobile version for management 6, 102-111, 1001, 9999 
Feedback Get feedback from users 300 


As a taste of what's to come, Figure 1-1 shows a glimpse of the completed application 
you are about to build. 
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Figure 1-1. Completed application 
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1.9 Summary 


In this chapter, you went through some basic concepts about cloud computing. Besides 
being introduced to the three most common types of cloud services, you were briefed 
about public and private clouds. The basic objective of this book is to reveal how 

Oracle APEX fits into the cloud computing model with respect to business applications. 
To achieve this objective, you will create a GL project that will also enhance your 
development skills. In the next chapter, you will be provided step-by-step instructions to 
initiate the project, starting with the application navigation. 







CHAPTER 2 


Application Navigation 





Previous versions of APEX used tabs that acted as an application's main menu up to 
version 4.2. In version 5, a default navigation list named the desktop navigation menu 
was introduced as a shared component for each new application. This provides the user 
with a hierarchical set of pull-down menus and submenus. It is displayed as a responsive 
sidebar. Based on the available space, the navigation bar either displays as a full menu or 
collapses to a narrow icon bar. 


2.1 Create the Main Application Menu 


The default desktop navigation menu carries just one item (Home). In this chapter, 
you'll modify this list to add more application menu entries. Follow these instructions to 
complete this exercise: 


1. In Shared Components, click the Lists option in the 
Navigation section. 


2. Select the Desktop Navigation Menu option, which carries 
a default entry (Home) created by the application builder 
wizard. Modify this entry by clicking its name. In the attributes 
page of the Home menu item, click the pop-up LOV icon 
to the right of the Image/Class attribute to display a list of 
possible icon images for the Home menu option. At the top of 
the icon list you will notice two options: Show and Category; 
set Show to Font Awesome Icons, and set Category to Web 
Application. Click the Go button to refresh the view and then 
select the fa-home icon from the icons list. This image will 
be displayed for the Home menu at run time. Hit the Apply 
Changes button to save your work. With practice you will 
get to know the icon names and can type them directly in 
the Image/Class attribute to save time. If you do not see the 
specified icon, select anyone you like from the list. 
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3. Click the Create List Entry button to create a new menu item. 
Enter the values shown in Table 2-1 against the specified 
attributes. You won't select anything for the first attribute 
(Parent List Entry) because initially you will create level-one 
entries that do not have parent entries. The target is either 
a page in the current application or any valid URL. In this 
case, the Setup menu entry itself is not associated with any 
application page, so its Target Type is set to No Target. 


Table 2-1. Create First Level 1 Menu Item 


Attribute 


Parent List Entry 
Image/Class 

List Entry Label 
Target Type 


Value 


No Parent List Item 


fa-database 


Setup 
No Target 


4. Using the button Create and Create Another, save the previous 
entry and create five more level-one entries, as shown in 
Table 2-2. Combined, the Target Type and Page attributes 
inform APEX where to land when a menu item is clicked. 


Table 2-2. Create More Level 1 Menu Items 


Parent List Entry 


No Parent List Item 
No Parent List Item 


No Parent List Item 
No Parent List Item 


No Parent List Item 


Image/Class 


fa-list-alt 
fa-table 


fa-gear 
fa-file-pdf-o 


fa-calendar 


List Entry Label 


Select 
Transactions 
Utilities 


Reports 
Closing 


Target Type 
Page in this 
Application 


Page in this 
Application 


No Target 
No Target 
No Target 


Tables 2-1 and 2-2 show how to construct the main menu of 
your application. Again, for each of these, you set Parent List 
Entry to No Parent List Item. Note that the Setup, Utilities, 
Reports, and Closing entries have no target because these 


entries are not directly linked to application pages; they link to 


submenus. In the next step, you will create the submenus for 
these main entries. 
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5. Create level-two menu entries using Tables 2-3 to 2-6. 
These entries will appear under their respective main menu 


(specified under the Parent List Entry column). 


Table 2-3. Setup Menu 


Parent List Entry 
Setup 


Setup 
Setup 
Setup 
Setup 
Setup 
Setup 
Setup 
Setup 


Setup 


Image/Class 


fa-building 


fa-calendar-o 


fa-money 


fa-sitemap 


fa-users 


fa-user 


fa-tasks 


fa-newspaper-o 


fa-bank 


fa-bar-chart 


Table 2-4. Utilities Menu 


Parent List Entry 


Utilities 


Utilities 


Utilities 


Utilities 


Utilities 


Image/Class 


fa-bank 


fa-search 


fa-cc 


fa-calculator 


fa-ellipsis-h 


List Entry Label 
Company 


Fiscal Year 


Voucher Types 


Application Segments 


Groups 

Users 

Cost Centers 
Chart of Accounts 
Opening Bank 


Transactions 


Financial Statements 


List Entry Label 


Bank Reconciliation 
Search Transaction 
Copy Chart of 
Accounts 


Budget Allocation 


Reset Password 


Target Type 
Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 
Page in this 
Application 


Page in this 
Application 


Target Type 
Page in this 
Application 
Page in this 
Application 
Page in this 
Application 
Page in this 
Application 
Page in this 
Application 


Page 


19 
21 
22 
13 
15 
17 


18 


Page 


51 
53 
54 
55 


56 
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Table 2-5. Reports Menu 


Parent List Entry 


Reports 
Reports 
Reports 
Reports 
Reports 
Reports 


Reports 


Image/Class 


fa-money 
fa-book 
fa-reorder 
fa-bank 
fa-calculator 
fa-bar-chart 


fa-comments 


Table 2-6. Closing Menu 


Parent List Entry 
Closing 


Closing 
Closing 


Closing 


Image/Class 


fa-money 
fa-close 
fa-calendar 


fa-calendar-o 


List Entry Label 


Vouchers 

Ledgers 

Trial Balance 

Bank Reconciliation 
Budget 

Financial Statements 


Feedback 


List Entry Label 


Vouchers Verification 
Month Closing 
Temporary Year End 


Permanent Year End 


Target Type 
Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Page in this 
Application 


Target Type 
Page in this 
Application 
Page in this 
Application 
Page in this 
Application 
Page in this 
Application 


2.2 Modify/Add Navigation Bar Entries 


Having created the menus, the final task in this chapter is to design the Navigation Bar. 

Go to Shared Components, select the Lists option, and then click Desktop Navigation Bar. 
This will bring up the default navigation bar carrying the default Logout entry. Click the 
Create List Entry button to add some more entries by using the settings listed in Table 2-7. 
By defining a parent entry, the Sign Out entry appears as a submenu item. APP_USER and 
LOGOUT_URL are built-in substitution strings. APP_USER is the current user running 
the application, while LOGOUT_URL is an application-level attribute used to identify the 
logout URL. This is a URL that navigates the user to a logout page or optionally directly 


logs out a user. 


12 


Page 


71 
{2 
73 
74 
15 
76 


T 


Page 


94 
96 
93 


97 


CHAPTER 2 ™ APPLICATION NAVIGATION 


Table 2-7. Navigation Bar Entries 


Attribute New Entry New Entry New Entry Modify Log Out Entry 
Parent List No Parent List No Parent List No Parent &APP_USER. 

Entry Item Item List Item 

Image/Class fa-mobile fa-comments —fa-user 

List Entry Label Mobile Feedback &APP_USER. Sign Out 


Target Type Page in this Page in this No Target URL 
Application Application 


Page 6 300 
Clear Cache 300 
URL Target &LOGOUT_URL. 


Figure 2-1 illustrates the navigation menu and navigation bar of your application. 


x Month Closing 
iget Allocation 
få Temporary Year End 


ot Password 
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E Budget 





Figure 2-1. Navigation menu and navigation bar 
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2.3 Summary 


This completes the creation of the menus and navigation bar. In subsequent chapters, 
you will create the application pages that these menu items will connect to. The next 
chapter describes the creation of the Company Setup page. 
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CHAPTER 3 


Companies 





Let's begin the application-building process by creating the Company Setup, which is very 
simple. Note that the Home page of your application will contain an executive dashboard 
that displays various charts based on existing data. Since you do not have any transaction 
data so far in your database, the Home page will be dealt with in Chapter 29. The Cloud 
Accountant is capable of handling accounts of multiple companies simultaneously, 

which is why you have to develop this setup. Each company created through this setup 
will have a unique code. This code will be saved with every transaction to distinguish one 
company's data from that of the others. 


3.1 Create Application Tables 


Because of the referential integrity constraints used in the tables of this application, I 
recommend you create all the tables at once using the script.sql file provided in the 
book code. Go to SQL Workshop » SQL Scripts » Upload. Click the Browse button, select 
the script.sql file, and click the Upload button. In SQL Scripts interface, click the Run 
button ® to execute the script file. On the Run Script page, click the button labeled Run 
Now. After successfully executing the script file, go to SQL Workshop > Object Browser 
and verify the objects. 


COMPANIES TABLE AND SEQUENCE 


CREATE TABLE GL_Company 
(Cocode NUMBER, Coname VARCHAR2(50), Coaddress VARCHAR2(100), Cophone 
VARCHAR2(15), Cofax VARCHAR2(15), Cocity VARCHAR2(15), Cozip VARCHAR2(15), 
Cocurrency VARCHAR2(15), CONSTRAINT gl company pk PRIMARY KEY (Cocode) ENABLE) 


CREATE SEQUENCE gl company segq 


Note Do not reexecute the CREATE statements because you have already created the 
objects. These statements will be provided at the top of each chapter just for information. 
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3.2 Create Pages for Company Setup 


Use Table 3-1 to create two pages for this setup. On the first wizard page, select Form, and 
on the next page, select Form on a Table with Report. 


Table 3-1. Attributes for Two Pages 
Page Type Attribute 


Report Implementation 
Page Page Number 
Page Mode 

Page Name 
Region Title 
Region Template 


Breadcrumb 
Table/View owner 


Table/View Name 


Navigation Preference 


Existing Navigation Menu Entry 
Report Columns 


Edit Link Image 


Data Manipulation Process 


Form Page Number 

Page Page Name 
Page Mode 
Region Title 


Region Template 

Primary Key Type 

Primary Key Column I 

Source for Primary Key Column I 
Sequence 

Form Columns 


Data Manipulation Process 
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Value 


Interactive 

3 

Normal 
Company Setup 
Company Setup 
Standard 


- do not add breadcrumb region to 
page - 

Accept the displayed value. It is 
dependent upon your setup. 


GL COMPANY 


Identify an existing navigation 
menu entry for this page 


Setup 
Select all columns 


Select any edit link image from the 
provided options 


Insert=Yes, Update=Yes, Delete=Yes 
4 

Company Setup 

Modal Dialog 

Company Setup 

Standard 

Select Primary Key Column(s) 
COCODE 

Existing Sequence 

GL COMPANY SEQ 

Select all columns 


Insert=Yes, Update=Yes, Delete=Yes 
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Note Itis assumed that you have knowledge about all APEX attributes used throughout 
this book. However, if you are not familiar with any attribute, then click it in the Properties 
pane and select the Help tab to see its details. 


After creation, modify both pages to set appropriate column headings/labels, as 
shown in Figure 3-1. Run this segment from the Setup » Companies menu and create at 
least two companies, also shown in Figure 3-1. That's it! 





==] 


Company Address Phone Fax City Zip Currency 







Å] ABC & Company Raymond Street 123-456-789 13456-09 


F MYZ & Compary Mansfield Street 111-222-333 9099-9909! 
CompanyName ABC & Company 


| Address Reymond Street 
Phone 123-456-789 
Report page showing all companies sx MEET 
City Chicago 
Form page to create a new company @&—— ZipCode 61062 
Currency $ 


Figure 3-1. Creating two companies 


3.3 Summary 


In this chapter, you created the simplest setup of your application. The next task in the 
setup hierarchy is to create financial calendars for these established companies. 


17 


CHAPTER 4 


Fiscal Year 





Organizations are required by law to produce a set of annual accounts. To this end, their 
general ledger systems must maintain a fiscal calendar. Although the specific start and 
end dates of a fiscal year vary from country to country, for our purposes the year will start 
on July 1 and end on June 30. In addition, each fiscal year is normally subdivided into 
periods. For our purposes, each period will be a calendar month. 


FISCAL YEAR TABLE 


CREATE TABLE gl fiscal year 

(Cocode NUMBER Constraint fk fiscal year References gl company (Cocode), 
Coyear NUMBER(4), Comonthid NUMBER(2), Comonthname VARCHAR2(9), Pfrom DATE, 
Pto DATE, Initial Year NUMBER(1), Year Closed NUMBER(1), 

Month Closed NUMBER(1), TYE Executed DATE, 

CONSTRAINT gl fiscal year pk PRIMARY KEY (Cocode,Coyear,Comonthid) ENABLE) 


This setup will use the previous table. Each company’s fiscal year will be 
distinguished by the company code (cocode), which references its parent key in 
the Company table. Coyear is a numeric field, which will store the year, such as 2015. 
Comonthid is also a numeric column, and it will hold the ID of each month, in other 
words, from 1 to 12. The first month—in our case July—will be marked as 1. Comonthname 
will store the name of the month, such as September. The two columns, Pfrom and Pto, 
will store start and end dates for a month, such as 01-JAN-2015 and 31-JAN-2015. A 
value of 1 in the Initial Year column signifies that this is the first year of a company; 
autogeneration of subsequent years will be relative to this initial year. The Year Closed 
column tags a year as either open or closed. You'll use this column in the year-end 
processes in Chapter 24. Month_Closed is used to indicate that a month is closed to 
further transactions. The TYE Executed column stores a date value to record when 
the Temporary Year End process was last executed. Finally, a table-level primary key 
constraint is defined, comprising three columns, to prevent duplicate values. 
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4.1 Create List of Values 


The next task is to create two lists of values (LOVs) from scratch. These LOVs will be used 
to populate the Company and Month drop-down lists shown in Figure 4-2 later in this 
chapter. The query defined in the first LOV displays the names of companies in a select 
list. The code of the selected company is returned and stored in the corresponding page 
item (P5 COMPANIES) for further processing. The second LOV returns a static numeric 
value, which will be used to evaluate the first month of the new fiscal year. 


Here is LOV 1: 


Attribute Value 


Name Companies 


Type Dynamic 


Query SELECT coname d, cocode r 


FROM gl company 


ORDER BY I 


Here is LOV 2: 


Attribute 
Name 


Type 
Display & Return 
Values 
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Value 


Months 
Static 
Display Value 


January 
February 
March 
April 

May 

June 

July 
August 
September 
October 
November 


December 


Return Value 


Oo mn N QO a A WO N e 
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4.2 Create Page and Parameters Region 


Create a blank page, add the components specified in Table 4-1 onto it, and set their 
relevant attribute values. 


Note 


Tables similar to the following are used throughout this book to set up and 


manipulate the application’s pages. The Action column displays the action to be taken. For 
example, the Create Blank Page entry specifies that a blank page is to be created. The 
Attribute column identifies the attribute for the Blank Page, while the Value column lists the 


value of each attribute. 


Table 4-1. Component Values 


Action 


Create Blank Page 


Create Region 


Create Page Item 


Attribute 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu Entry 
Title 

Type 

Template 

Name 

Type 

Label 

Region 

Start New Row 

Column and Column Span 
Label Column Span 
Template 

Value Required 

LOV Type 

List of Values 


Display Null Value 


Value 


5 
Fiscal Year Setup 
Normal 


- don't use breadcrumbs on 
page - 

Identify an existing navigation 
menu entry for this page 


Setup 
Parameters 
Static Content 
Standard 

P5 COMPANIES 
Select List 
Companies 
Parameters 

Yes 

Automatic 

2 

Required 

Yes 

Shared Component 
COMPANIES 
Yes 


(continued) 
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Table 4-1. (continued) 


Action Attribute Value 

Create Page Item Name P5_YEAR 
Type Text Field 
Label Year 
Region Parameters 
Start New Row No 
Column Automatic 
New Column Yes 
Column Span Automatic 
Label Column Span 2 
Template Required 
Width 4 
Value Required Yes 
Maximum Length 4 

Create Page Item Name P5 MONTH 
Type Select List 
Label Month 
Region Parameters 
Start New Row No 
Column Automatic 
New Column Yes 
Column Span Automatic 
Label Column Span 2 
Template Required 
Value Required No 
LOV Type Shared Component 
List of Values MONTHS 
Display Null Value Yes 


4.3 Create a Fiscal Year Grid 


Next you'll create four regions and a hidden item. The first region (Fiscal Year Setup) is 
the main region that contains three child regions. It also carries a hidden item 

(P5_INITIAL_YEAR ) to store the value of the Initial Year column. This value is used in 
some processes to evaluate the existence of the selected company’s fiscal year. The first 
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child region will display the month names, while the other two will show start and end 
dates for each month. Use Table 4-2 to create these regions, starting with the main region, 


which is Fiscal Year Setup. 


Table 4-2. Region Values 
Action 


Create Region 


Create Region 


Create Region 


Create Region 


Create Page Item 


Attribute 

Title 

Type 

Template 

Title 

Type 

Parent Region 
Template 

Start New Row 
Column 
Column Span 
Title 

Type 

Parent Region 
Template 

Start New Row 
Column 
Column Span 
Title 

Type 

Parent Region 
Template 

Start New Row 
Column 
Column Span 
Name 

Type 

Value Protected 


Region 


Value 


Fiscal Year Setup 
Static Content 
Standard 

Month 

Static Content 
Fiscal Year Setup 
Standard 

Yes 

Automatic 

4 (Uses columns 1-4) 
From 

Static Content 
Fiscal Year Setup 
Standard 

No 

5 

2 (Uses columns 5 and 6) 
To 

Static Content 
Fiscal Year Setup 
Standard 

No 

7 

2 (Uses columns 7 and 8) 
P5_INITIAL_YEAR 
Hidden 

No 


Fiscal Year Setup 
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Let’s spend a moment reviewing the purpose of what you have done so far. To create 
a fiscal year, you first select a company from the provided list and then manually enter its 
initial year before choosing the fiscal year’s starting month. All of this will be done in the 
Parameters region. Then, you'll click a button that will execute a process. The process will 
generate a fiscal year based on the year and month selections. Thereafter, the generated 
fiscal year will be displayed in additional page items, which you'll create next. 


4.4 Add Items to Hold Months/Dates 


Now you must add 12 items to each of the three child regions, as listed in Table 4-3. These 
items will hold month names and the respective first and last dates for each month. 


Table 4-3. Item Values 


Action Attribute Value 
Create 12 Page Name P5 MONTHI1, P5 MONTH2,... P5_ 
Items MONTH12 

Type Display Only 

Label Lyns 12. 

Save Session State No 

Region Month 

Template Optional 
Create 12 Page Name P5_FROM1, P5 FROM2, ... P5 FROM12 
Les Type Display Only 

Label Clear Label 

Save Session State No 

Region From 

Template Optional 
Create 12 Page Name P5 TOIL, P5_TO2,... P5 TO12 
Items Type Display Only 

Label Clear Label 

Save Session State No 

Region To 

Template Optional 
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4.5 Create Buttons to Generate, Save, and 
Remove a Fiscal Year 


In this section, you will add three buttons using Table 4-4 to the Fiscal Year Setup region 
to generate, save, and delete a fiscal year. You use JavaScript behind the Delete button to 
present the delete confirmation box. 


Table 4-4. Button Values 


Action 


Create Button 


Create Button 


Create Button 


Attribute 


Button Name 
Label 

Region 

Button Position 
Hot 

Action 

Button Name 
Label 

Region 

Button Position 
Hot 

Action 

Button Name 
Label 

Region 

Button Position 
Hot 

Action 


URL Target 


Execute Validations 


Value 


Generate 
Generate Fiscal Year 
Fiscal Year Setup 
Copy 

Yes 

Submit Page 
Save 

Save 

Fiscal Year Setup 
Copy 

No 

Submit Page 
Delete 

Delete 

Fiscal Year Setup 
Copy 

No 

Redirect to URL 


javascript:apex.confirm(‘Delete Fiscal 
Year?’, ‘Delete’); 


Yes (associated with “4.10 Create 
Validation: Check Transaction”) 


Note The Delete request defined in JavaScript is case-sensitive and must match the 


value specified in the Button Name attribute. 
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In the next section, you ll create the processes that will run each time a button is 
clicked. 


46 Generate Fiscal Year Process 


After creating a new company, you select it along with its starting fiscal year and 

month. You then click the Generate button on the page, which automatically generates 

a complete fiscal year for the company. This automatic generation of the fiscal year is 
backed by the first of the processes that you are going to add in this section. On the Fiscal 
Year Setup page, click the Processing tab. Then right-click the Processing node, and select 
Create Process from the menu. Set the attributes defined in Table 4-5 for this process. You 
will find the PL/SQL code for this chapter in the Chapter4 folder. 


Table 4-5. Process Attributes 


Action Attribute Value 

Create Name Generate Fiscal Year 

Process Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter4\Generate Fiscal Year.txt 
Point Processing 
When Button Pressed Generate 


Note The appendix at the end of this book contains all the book code for referencing. 


In this PL/SQL block, the financial year runs only from July to June; therefore, no 
calendar will be generated if the selected month is other than July. You may enhance 
the code if you want to add other fiscal year combinations. I incremented the year value 
in December to show the correct year for the months of January to June. I also made 
provision for leap years in February. 


4.7 Save Fiscal Year Process 


After generating a fiscal year on the screen, you'll click the Save button, which invokes 
the process defined in Table 4-6. The process comprises 12 simple insert statements. It 
collects values from the page items and inserts them into the GL_FISCAL_YEAR table. Note 
that this process and the one that follows will be created under the Generate Fiscal Year 
process. 
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Table 4-6. Save Process 


Action Attribute Value 

Create Name Save Fiscal Year 

Process Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter4\Save Fiscal Year.txt 
Point Processing 
Success Message Fiscal year saved successfully 


When Button Pressed Save 


4.8 Delete Fiscal Year Process 


You can also remove erroneously created fiscal years using the process mentioned in 
Table 4-7 that runs when the delete button is clicked. A year can be deleted only when it 
passes the Check Transaction validation (see Table 4-9). 


Table 4-7. Delete Process 


Action Attribute Value 
Create Process Name Delete Fiscal Year 
Type PL/SQL Code 
PL/SQL Code DELETE FROM gl fiscal year 


WHERE cocode=:P5 COMPANIES 
AND coyear=:P5 YEAR; 


Point Processing 
Success Message Fiscal year deleted successfully 


When Button Pressed Delete 


4.9 Fetch Fiscal Year Dynamic Action 


As the name implies, this dynamic action will fetch the initial fiscal year of a company 
from the database when you select a company from the P5_COMPANIES select list. Click 
the Dynamic Actions tab, right-click the Change node, and select Create Dynamic Action 
from the context menu. Set the attributes mentioned in Table 4-8 for the new dynamic 
action. 
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Table 4-8. Action Attributes 


Action Attribute Value 
Create Name Fetch Fiscal Year 
Dynamic Event Change 
Action 
Selection Type Item(s) 
Item(s) P5_COMPANIES 
Action (under the Show node) Execute PL/SQL Code 
PL/SQL Code Book_Code\Chapter4\Fetch Fiscal Year. 
txt 
Page Items to Submit P5_COMPANIES 
Page Items to Return The Fetch Fiscal Year process will 


retrieve fiscal year values from the 
database and will return these to the 
items specified in the Page items to 
Return attribute. Because it’s a long 
list comprising almost all page items, 
I created a separate text file for your 
convenience: Book_Code\Chapter4\ 
Page Items to Return.txt 


Fire On Page Load No 


4.10 Create Validation: Check Transaction 


The following validation will check for the existence of data before the deletion of a fiscal 
year. The delete request will be refused if any record exists in the transactions table. Go to 
the Processing tab, right-click the Validating node, and select Create Validation. Set the 
attributes mentioned in Table 4-9 for this validation. 


Table 4-9. Validation Attributes 


Action Attribute Value 
Create Name Check Transaction 
Validation Type PL/SQL Function Body (returning 
Boolean) 
PL/SQL Function Body Book_Code\Chapter4\Check 
(returning Boolean) Transaction.txt 
Error Message Can't delete; transactions exist 
in this year 
When Button Pressed Delete 
28 
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4.11 Create Branch 


After deleting a fiscal year, you need to clear the cache. The following branch performs 
this process. In the Processing tab, right-click the After Processing node, and select Create 
Branch. Set the attributes mentioned in Table 4-10 for this branch. 


Table 4-10. Branch Attributes 


Action Attribute Value 

Create Name Clear Cache 

Branch Point After Processing 
Behavior Type Page or URL (redirect) 
Target Type Page in this Application 
Page 5 
Clear Cache 5 
When Button Pressed Delete 


4.12 Dynamic Actions to Hide Buttons 


After creating a fiscal year, you must hide the Save and Generate buttons and show the 
Delete button. Similarly, you must hide the Delete button and show the other two when a 
new fiscal year is being generated. Create the dynamic actions (using Tables 4-11 to 4-19) 
to achieve these tasks. These dynamic actions will run when a fiscal year for the selected 
company exists, in other words, when the value of the hidden item P5_INITIAL_YEAR 
equals 1. Note that this value is retrieved from the database through Fetch Fiscal Year 
dynamic action, as shown earlier in Table 4-8. 

First, you hide the Save button (see Table 4-11). 


Table 4-11. Action: Hide Save Button 


Action Attribute Value 

Create Dynamic Action Name Hide Save Button 
Event Change 
Selection Type Item(s) 
Item P5_INITIAL_YEAR 
Condition Equal to 
Value l 
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Click the Show node under the True node to set the attributes in Table 4-12. These 
attributes will hide the Save button when the value of P5_INITIAL_YEAR is equal to 1. 


Table 4-12. Action: Hide 


Attribute Value 
Action (Under Show node) Hide 
Selection Type Button 
Button Save 
Fire On Page Load Yes 


Now, right-click the False node, and select Create False Action. A new node (Show) 
will be added, as shown in Figure 4-1. 


<> Change 

<7 Fetch Fiscal Year 

<> Hide Save Button 

True 
Hide 
> False 
BROW 

|] Click 


Dialog Closed 
Figure 4-1. The new node 


Set the attributes in Table 4-13 for the false action to show the Save button when the 
value of P5_INITIAL_YEAR is NOT equal to 1. 


Table 4-13. Action: Show 


Attribute Value 
Action Show 
Selection Type Button 
Button Save 
Fire On Page Load Yes 
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Next you create a dynamic action to hide/show the Generate button (see Table 4-14). 


Table 4-14. Action: Hide Generate Fiscal Year Button 


Action Attribute Value 
Create Dynamic Name Hide Generate Fiscal Year Button 
Action Event Change 

Selection Type Item(s) 

Item P5_INITIAL_YEAR 

Condition Equal to 


Value 1 


Table 4-15 shows the true action attributes. 


Table 4-15. True Action Attributes 


Attribute Value 
Action Hide 
Selection Type Button 
Button Generate 
Fire On Page Load Yes 


Table 4-16 shows the false action attributes. 


Table 4-16. False Action Attributes 


Attribute Value 
Action Show 
Selection Type Button 
Button Generate 


Fire On Page Load Yes 


Finally, create one more dynamic action to hide/show the Delete button, as shown 
in Table 4-17. 
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Table 4-17. Action: Show Delete Button 


Action Attribute 


Create Dynamic Action Name 
Event 
Selection Type 
Item 
Condition 


Value 


Table 4-18 shows the true action attributes. 


Table 4-18. Show Attributes 


Attribute Value 
Action Show 
Selection Type Button 
Button Delete 


Fire On Page Load Yes 


Table 4-19 lists the false action attributes. 


Table 4-19. Hide Attributes 


Attribute Value 
Action Hide 
Selection Type Button 
Button Delete 


Fire On Page Load Yes 


4.13 Test Your Work 


Value 


Show Delete Button 
Change 

Item(s) 
P5_INITIAL_YEAR 
Equal to 

1 


Save the page and run it from the Setup > Fiscal Year menu. It should look similar to 
Figure 4-2. Follow these instructions to create a fiscal year for the ABC & Company: 


1. Select ABC & Company from the Companies select list. 


2. Enter 2015 in the Year box. 


3. Select July from the Month select list. 
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4. Hit the Generate Fiscal Year button. This should display a 
fiscal year starting from 01-JUL-2015 to 30-JUN-2016. Since 
2016 is a leap year, the process adds an extra day onto the 
month of February. 


5. Click the Save button. 


6. Repeat steps 2 to 5 to generate a calendar for the other 
company. 


r - : l a 
Companies * | ABC &Compary # Year” 2015 Month” | July : 





Figure 4-2. Creating a fiscal year 
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4.14 Summary 


In this chapter, you generated fiscal years for the two companies you created in the 
previous chapter. Each fiscal year comprises 12 periods, and every transaction you create 
in the application will be posted in one of these periods. In the next chapter, you will 
create another application segment called Voucher Types. 


34 







CHAPTER 5 


Voucher Types 


Financial transactions are recorded in ledgers using special forms called vouchers. Before 
creating the actual interface for vouchers, you are going to create a setup page to define 
different voucher types. Vouchers are broadly divided into three categories: Payment, 
Receipt, and Journal. Each one has its own specific interface to record transactions. 
However, in this book, you will create a single interface for all three. By creating this 
setup, you'll allow the end users to create custom voucher types to distinguish between 
transactions. Creating this setup is similar to the Company setup described previously. 
The only difference is the use of Radio Group items that will identify the nature of a 
voucher type. The database table GL VOUCHER contains a column named VCHNATURE. 
This column holds information about the nature of the vouchers. For example, payment 
vouchers will be flagged as type 1, receipt vouchers will be marked as type 2, and journal 
vouchers will be identified as type 3. You will also create a sequence to autogenerate 
primary key values for the table. 


VOUCHER TYPES TABLE AND SEQUENCE 


CREATE TABLE gl voucher 

(Vchcode NUMBER, Vchtype VARCHAR2(6), Vchtitle VARCHAR2(30), Vchnature 
NUMBER(1) , 

CONSTRAINT GL VOUCHER PK PRIMARY KEY (Vchcode) ENABLE) 


CREATE SEQUENCE gl voucher seq 





5.1 Create List of Values 


Create a list of values from scratch. This LOV will be linked to the voucher nature radio 
item. Set the Name attribute of this LOV to Voucher Nature, and set Type to Static. Set 
display and return values, as defined in Table 5-1. 
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Table 5-1. Voucher Nature List of Values 


Display Value 


PV 
RV 


JV 


Return Value 
1 
2 
3 


5.2 Create Pages for Voucher Types Setup 


Create a new page by selecting the Form and Form on a Table with Report options in the 
page creation wizard. Set the attributes for the two pages as shown in Table 5-2. 


Table 5-2. Page Attributes 


Page Type 


Report Page 
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Attribute 


Implementation 
Page Number 
Page Mode 

Page Name 
Region Title 
Region Template 


Breadcrumb 


Table/View owner 
Table/View Name 


Navigation Preference 


Existing Navigation Menu Entry 


Report Columns 


Edit Link Image 


Value 


Interactive 

7 

Normal 

Voucher Types Report 
Voucher Types 
Standard 


- do not add breadcrumb region to 
page - 

Accept the displayed value 
GL_VOUCHER 


Identify an existing navigation 
menu entry for this page 


Setup 


Select all the columns to include in 
the report page 


Select any edit link image from the 
provided options 


(continued) 
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Table 5-2. (continued) 


Page Type Attribute Value 
Form Page Page Number 8 
Page Name Voucher Types Form 
Page Mode Modal Dialog 
Region Title Enter New Voucher Type 
Region Template Standard 
Primary Key Type Select Primary Key Column(s) 
Primary Key Column 1 VCHCODE 
Source for Primary Key Column I Existing Sequence 
Sequence GL VOUCHER SEQ 
Form Columns Select all the columns to include in 
the form page 
Data Manipulation Process Insert=Yes, Update=Yes, Delete=Yes 


After creation, modify the attributes on page 8 so they match Table 5-3. 


Table 5-3. Page 8 Attributes 


Action Attribute Value 

Modify Page Items Name P8 VCHTYPE 
Label Type 
Template Required 
Value Required Yes 
Name P8 VCHTITLE 
Label Title 
Template Required 
Value Required Yes 


5.2.1 Convert Text Item to Radio Group 


The final task of this setup is to covert the page item representing the VCHNATURE column 
from a text item to a radio group. Click the P8_VCHNATURE page item, and set the 
attributes defined in Table 5-4. 
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Table 5-4. VCHNATURE Attributes 


Attribute Value 

Type Radio Group 

Label Nature 

Number of Columns 3 

Template Required 

Value Required Yes 

LOV Type Shared Component 
List of Values VOUCHER NATURE 
Display Extra Value No 

Display Null Value No 

Default Type Static Value 

Static Value 3 (i.e. JV) 


5.3 Create Validation: Check Transaction 


Create a validation to prevent the deletion of voucher types with generated transactions. 
Select the Processing tab, right-click the Validating node, and then click the Create 
Validation option in the context menu. Now set the attributes of this validation as 


mentioned in Table 5-5. 


Table 5-5. Validation Attributes 


Action Attribute 
Create Validation Name 
Type 


PL/SQL Function Body Returning 


Boolean 


Error Message 


When Button Pressed 
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Value 


Check Transaction 


PL/SQL Function Body 
(returning Boolean) 


Book CodeVChapter5' 
Check Transaction.txt 


Can't delete voucher type 
with generated transactions 


DELETE 
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5.4 Test Your Work 


Add the appropriate labels for the columns on both forms, as shown in Figure 5-1. 
Save the page and run this feature from the Setup | Voucher Types menu. Create the 
three voucher types as illustrated in the title picture. Voucher types having cash or å 
bank involved must be of a Payment (PV) or Receipt (RV) nature; all other types can be 
assigned to the Journal (JV) nature. 





—p Existing Voucher Types 








Type Title 

Pi 

lå BPW Bank Payment Voucher 
im 

Fg i 

F; LA Local Sales Invoice Type * BRV 
add. 

La ir 

ka BRV Bank Receipt Voucher Tie” (Bank Receipt Voucher 
mv 

Le i | i 

å AD Adjustment Voucher Nature’ Orv @av Ow 


Form to Enter New Type @— 


Figure 5-1. Labels for the columns on both forms 


5.5 Summary 


By adding this setup, you allow users to create custom voucher types to distinguish 
financial transactions according to their nature. The GL application consists of various 
segments that will be used in a multiuser environment. To control user access to these 
segments, you will create a strong security module. But first you have to identify and store 
those segments in the database, which is the topic of the next chapter. 
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CHAPTER 6 


Application Segments 





In this chapter, you will create a setup that provides a list of all the different parts of the 
application. Just like a site map created for web sites, it is displayed as a tree view of 

the application and is created to implement application security. There are three main 
components in the application that you should apply security to: Menus (including the 
main and submenus), Pages, and Items (such as buttons). The fourth one (App) is called 
the root node and is used to distinguish between segments of multiple applications. 
After creating all the application segments here, you will use them in the next chapter to 
enforce application access rules. It's a flexible module, which is designed in such a way to 
accommodate future application enhancements. 


SEGMENTS TABLE AND SEQUENCE 


CREATE TABLE gl segments 

(segmentID NUMBER, segmentTitle VARCHAR2(50), segmentParent NUMBER, 
segmentType VARCHAR2(4), 

pageID NUMBER(4), itemRole VARCHAR2(10), CONSTRAINT gl segments pk PRIMARY 
KEY (segmentID) ENABLE) 


CREATE SEQUENCE gl segments seq MINVALUE 1 START WITH 1 INCREMENT 
BY 1 CACHE 20 





Each application segment will be stored in this table with a unique ID (segment ID). 
To present these segments in a hierarchal format, the segmentParent column will store 
the ID of each segment’s parent. Each entry in this table will have a type that will be 
stored in the segmentType column. The pageID column will be stored with each segment 
to identify its location. The itemRole column specifies the role of page items (buttons and 
select lists). For example, the create button on a page performs the role of record creation, 
so the Create role will be assigned to this button. 
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6.1 Create LOVs 


Create two static LOVs from scratch using Tables 6-1 and 6-2. The values included in 
these LOVs will be utilized in the segment creation form to identify the type of segments 


and the roles performed by page items. 


Table 6-1. LOV Name: Segment Type 
Display Value 

App 

Item 

Menu 


Page 


Table 6-2. LOV Name: Item Role 
Display Value 

Create 

Modify 

Delete 

Save 

Print 


Display 


Return Value 
App 

Item 

Menu 


Page 


Return Value 
Create 
Modify 
Delete 

Save 

Print 


Display 


6.2 Create Segments Setup Pages 


Use Table 6-3 to create two pages. On the first wizard page, select the Form option 


followed by Form on a Table with Report. 
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Table 6-3. Segments Setup Pages 


Page Type 


Report Page 


Form Page 


Attribute 


Implementation 
Page Number 
Page Mode 

Page Name 
Region Title 
Region Template 


Breadcrumb 


Table/View owner 
Table/View Name 


Navigation Preference 


Existing Navigation Menu Entry 


Report Columns 


Edit Link Image 


Page Number 

Page Name 

Page Mode 

Region Title 

Region Template 

Primary Key Type 

Primary Key Column 1 

Source for Primary Key Column 1 
Sequence 


Form Columns 


Data Manipulation Process 
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Value 


Interactive 

19 

Normal 

Application Segments Report 
Application Segments 
Standard 


- do not add breadcrumb region to 
page - 

Accept the displayed value 
GL_SEGMENTS 


Identify an existing navigation 
menu entry for this page 


Setup 


Select all the columns to include in 
the report page 


Select any edit link image from the 
provided options 


20 

Application Segments Form 
Modal Dialog 

Application Segment 
Standard 

Select Primary Key Column(s) 
SEGMENTID 

Existing Sequence 
GL_SEGMENTS_SEQ 


Select all the columns to include in 
the form page 


Insert=Yes, Update=Yes, 
Delete=Yes 
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After creation, modify the form page (page 20) to change the item labels, as shown in 


Figure 6-1. 


6.3 Modify Segments Form 


Amend the Application Segments form’s items as indicated in Table 6-4. The P20_ 
SEGMENTPARENT item is being transformed into a pop-up LOV. It will display title and 
type columns from the segments table to allow the selection of a parent for a new entry. 


Since the Item segment type doesn’t have any children, the LOV will exclude these records. 


Table 6-4. Application Segments Form Attributes 


Action 


Modify Items 


Modify Item 


Modify Item 


Modify Item 


Modify Item 
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Attribute 


Names 


Template 


Value Required 


Name 

Type 

Type (LOV) 
SQL Query 


Default Type 
Static Value 
Name 

Type 

LOV Type 
List of Values 
Name 


Width 


Maximum Length 


Name 
Type 
LOV Type 


List of Values 


Value 

P20_SEGMENTTITLE, P20_ 
SEGMENTPARENT & P20 SEGMENTTYPE 
Required 

Yes 

P20 SEGMENTPARENT 

Popup LOV 

SQL Query 

SELECT segmentTitle||' ("|segmentType||')' d, 
segmentID r 

FROM gl segments 

WHERE segmentType != Ttem' 


ORDER BY 
pagelD,segmentID,segmentParent 


Static Value 

0 

P20 SEGMENTTYPE 
Select List 

Shared Component 
SEGMENT TYPE 
P20 PAGEID 

4 

4 

P20 ITEMROLE 
Select List 

Shared Component 


ITEM ROLE 
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6.4 Add Tree View Region 


Currently, the report page (19) contains an interactive report region to display all 
segments in a matrix report. In this section, you will change this appearance to display all 
the segments in a tree view, as shown in Figure 6-1. First, delete the existing Application 
Segments region from page 19 and then add a new region to this page using the attributes 
shown in Table 6-5. 


Table 6-5. Tree View Region Attributes 


Attribute Value 


Title Application Segments 
Type Tree 
SQL Query Book_Code\Chapter6\Tree Query.txt 


Template Standard 


6.5 Create Buttons 


Right-click the new Application Segments tree region and select Create Button from the 
context menu. Set the attributes for this button, as shown in Table 6-6. This button will be 
used to create a new application segment. 


Table 6-6. Create Button Attributes 


Attribute Value 

Button Name Create 

Label Create 

Region Application Segments 

Button Position Copy 

Hot Yes 

Action Redirect to Page in this Application 

Target Type = Page In This Application 
Page = 20 


Clear Cache = 20 


Create another button named Refresh using the attributes indicated in Table 6-7. 
This button is added to refresh the segments tree. 
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Table 6-7. Refresh Button Attributes 


Attribute 


Button Name 
Label 

Region 

Button Position 
Button Template 
Hot 

Icon CSS Classes 
Action 


Target 


Value 


Refresh 
Refresh 


Application Segments 


Copy 
Text with Icon 


No 


fa-undo 


Redirect to Page in this Application 


Type = Page In This Application 


Page = &APP_PAGE_ID. 


6.6 Create Validations 


Using the Table 6-8, create two validations on page 20 to prevent the deletion of used 


segments. 


Table 6-8. Validation Attributes 


Action 


Create Validation 


Create Validation 
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Attribute 
Name 


Type 


PL/SQL Function Body 
Returning Error Text 


Error Message 
When Button Pressed 


Name 


Type 


PL/SQL Function Body 
Returning Error Text 


Error Message 


When Button Pressed 


Value 


Check Segment 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter5\Check 
Segment.txt 


Cannot delete a utilized segment 
DELETE 
Check Child Segment 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter5\Check Child 
Segment.txt 


Cannot delete, this segment has child 
entries 


DELETE 
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6.7 Create Branch 


After clicking the Create button on the Application Segments form page, you will get a 
message indicating that your action was processed successfully, but you'll notice that the 
values still exist on the form. To create uninterrupted records in a blank form, create a 
branch under the After Processing node and set the attributes specified in Table 6-9. 


Table 6-9. Branch Attributes 


Action Attribute Value 
Create Branch Name Clear Page 20 
Point After Processing 
Behavior Type Page or URL (Redirect) 
Target Type = Page In This Application 
Page = 20 
Clear Cache = 20 
When Button Pressed CREATE 


One more thing that you must do in order to stay on page 20 is to remove the 
CREATE button value from the request specified in the Close Dialog process. In the 
Processing tab, click the Close Dialog process. Scroll down to the Condition section in the 
properties editor, and remove the CREATE entry from the Value list. By default, the modal 
page is closed when Create, Save, or Delete buttons are clicked. By removing the CREATE 
entry, the dialog page will be closed only when the Save (labeled Apply Changes) or 
Delete buttons are clicked. This way you will stay on page 20 to create additional segment 
records. 


6.8 Test Your Work 


Everything is set! Now it is the time to test your work. Save your work and run the 
Application Segments module from the Setup menu. Click the Create button, and enter 
the records mentioned in Table 6-10 one after the other in the segments form. 


Table 6-10. List of Application Segments 


Segment Title Parent 





E Application — Menu å Page | Item 
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The first entry in Table 6-10 will create the application root; therefore, no parent 
is assigned to it. Recall that you assigned the default value (zero) for the parent item in 
Table 6-4. The second and fourth main menu entries will come under the application 
root. The first page entry defined in line 3 will be placed under the Home menu, along 
with the corresponding page number. Similarly, the Select page defined in line 5 will 
come under the Select menu. The last level of your application hierarchy belongs to 
page items (lines 6-8). The Select page (30) will have three select lists (Company, Year, 
and Month), so these items are set under page 30. If you mark the Type of an entry as an 
Item, then you must also specify its role. Roles will be used in Chapter 32 to implement 
application security. The list in Table 6-10 is a subset of a comprehensive list that covers 
all of the application’s segments. You can find the complete list in the application_ 
segments . xlsx file in the book code's Chapter 6 folder. Open it up and add all application 
segments to complete this chapter. Note that it is not necessary to follow the defined 
sequence while creating new segments; you can add an entry to any level, any time. The 
important thing is to select the correct parent to place the new entry under. Figure 6-1 
provides an overview of the two Application Segments pages. 





v The Cloud Accountant —————_—______-@ App 
b Home 
X Select ————-® Menu 
v Select (Company/Year/Month) ——9 Page 
Switch Company —————————-@ item 


Sartch Year 


New Segment Form 


Saatch Month 





> Setup 
zomert Tahe Sat ch parry 
> Transactions 
* 
b Uvltes Porent Select (Compary/Vear/Month) (Page) 
b Reports 
Rem 
» Closing 
Mobile 30 


Feedback Rem Role Mody 


Figure 6-1. Segments pages 


6.9 Summary 


In this chapter, you created a hierarchy of your application segments that will be used to 
control application access in the next chapter. 
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CHAPTER 7 


User Groups 


In the previous chapter, you laid the foundation of your application's security that 

will be imposed on menus, pages, and page items. In this chapter, you will create user 
groups. Allocating application rights to individual users is a tedious activity, and it's not 
recommended because it is highly error-prone. You create a few user groups and assign 
application privileges to them instead. Users are created afterward and then associated 
with their respective groups. This means all users inherit application rights from the 
group (or groups) to which they belong. For example, to handle application security for 
a staff of more than 100 employees, comprising managers and data entry clerks, you will 
create just two groups (Managers and Clerks) with appropriate privileges. Any changes 
made to the privileges of these groups will be automatically inherited by all associated 
users. 


USER GROUPS TABLES 


CREATE TABLE gl groups master 
(groupID NUMBER(4), groupTitle VARCHAR2(25), CONSTRAINT gl groups pk PRIMARY 
KEY (groupID) ENABLE) 


CREATE TABLE gl groups detail 

(groupID NUMBER(4) CONSTRAINT fk Group Detail REFERENCES gl groups 
master(groupID), segmentID NUMBER CONSTRAINT fk user groups REFERENCES gl 
segments(segmentID), segmentParent NUMBER, segmentType VARCHAR2(4), pageID 
NUMBER(4), itemRole VARCHAR2(10), allow access VARCHAR2(1)) 





In this setup, you will be using two tables. The master table will hold IDs and titles 
of groups, while the details table will contain all application privileges (specified in the 
segments setup) for each group. 
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7.1 


Page and Parameters Region 


You will set up user groups using just one application page. This page will carry two 
main regions: Parameters and Group's Privileges. In the Parameters region, you indicate 
whether you are creating a new group or are manipulating an existing one. Based on this 
selection, you'll be provided with the appropriate interface. For example, if you're trying 
to modify or delete an existing group, then you'll select the Existing option, followed by 
a group from the provided list. When you select the New option, a different interface will 
be presented to allow you to create a new group. Just like the Financial Year setup, you'll 
start by creating a blank page for this setup. Use Table 7-1 to add a blank page and other 
components to the page. 


Table 7-1. Page and Parameters Region Attributes 
Attribute 


Action 


Create Blank Page 


Create Region 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu Entry 
Title 

Type 

Template 


Value 


21 
User Groups 
Normal 


- do not use breadcrumbs on 
page - 

Identify an existing 
navigation menu entry for 
this page 


Setup 
Parameters 
Static Content 


Standard 


(continued) 
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Table 7-1. (continued) 


Action 


Create Page Item 


Attribute 

Name 

Type 

Label 

Number of Columns 


Page Action on Selection 


Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Type (LOV) 


Static Values 


Display Null Value 
Type (Default) 
Static Value 
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Value 


P21 EXISTINGNEW 
Radio Group 
Action: 

2 


Submit Page (to show/hide 
Group's Privileges region) 


Parameters 
Yes 
Automatic 

1 

Required 
Static Values 


STATIC: New; NEW, Existing; E 
XISTING 


No 
Static Value 
EXISTING 


(continued) 
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Table 7-1. (continued) 


Action Attribute 

Create Page Item Name 
Type 
Label 


Page Action on Selection 


Region 
Start New Row 
Column/Column Span 


LOV Type 
SQL Query 


Type (Condition) 
Item 


Value 


Create Page Item Name 
Type 
Region 


Type (Source) 


SQL Query 


Source Used 
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Value 


P21_GROUPID1 

Select List 

Group: 

Submit Page (to refresh 
Selected Segment region) 
Parameters 

No 

4/5 


SQL Query 

SELECT DISTINCT 
groupTitle d, groupID r 
FROM gl groups master 
ORDER BY groupID 


Item = Value 
P21 EXISTINGNEW 


EXISTING (the list is 
displayed only when 
EXISTING option is on) 


P21 GROUPTITLEI1 (used in 
the Tree region’s title) 


Hidden 
Parameters 


SQL Query (return single 
value) 


SELECT groupTitle FROM 

gl groups master 

WHERE groupID=:P21 
GROUPID1 

Always, replacing any existing 
value in session state 


(continued) 


Table 7-1. (continued) 


Action 


Create Page Item 


Create Page Item 


Attribute 


Name 


Type 

Label 

Region 

Start New Row 
Column 
Column Span 


Type (Source) 
SQL Query 
Source Used 


Type (Default) 
Static Value 


Type (Condition) 


Item 
Value 


Name 


Type 

Label 

Region 

Start New Row 
Column 

New Column 


Column Span 


Type (Condition) 


Item 


Value 
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Value 

P21_GROUPID2 (to assign a 
new ID to a new group) 
Display Only 

<b>Group ID:</b> 
Parameters 

No 

4 

2 


SQL Query (return single 
value) 


SELECT MAX(groupID)+1 
FROM gl groups master 


Always, replacing any existing 
value in session state 


Static Value 

l 

Item = Value 
P21_EXISTINGNEW 
NEW 


P21 GROUPTITLE2 (title for 
a new group) 


Text Field 
<b>Title:</b> 
Parameters 

No 

Automatic 

Yes 

Automatic 

Item = Value 

P21 EXISTINGNEW 
NEW 
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Note The two items (P21_GROUPID2 and P21_GROUPTITLE2) are displayed only when 
the NEW option is on. Make sure that the Value attribute NEW doesn’t have any leading or 
trailing blanks. 


7.2 Buttons 


Add two buttons to the Parameters region, as mentioned in Table 7-2. These buttons 
will be displayed on the new group creation form. Clicking the Create Group - Allow All 
button will create a group with all the application access privileges, while clicking the 
Create Group - Disallow All button will create a group without any privileges. 


Table 7-2. Button Attributes 


Attribute Button 1 Button 2 

Name Allow Disallow 

Label Create Group - Allow All Create Group - Disallow All 
Region Parameters Parameters 

Button Position Create Create 

Action Submit Page Submit Page 

Type (Condition) Item = Value Item = Value 

Item P21 EXISTINGNEW P21 EXISTINGNEW 

Value NEW NEW 


7.3 New Group Process 


This process is associated with the two buttons created in the previous section. The 
condition says that if the request came from any of the two buttons, then execute the 
PL/SQL process to create the group with all or no privileges. Under the Processing tab, 
right-click the Processing node and choose Create Process to create a new process, as 
specified in Table 7-3. 
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Table 7-3. New Group Process Attributes 


Action Attribute Value 
Create Process Name Create New Group 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter7\Create New Group. 
txt 
Point Processing 
Success Message Group Created Successfully 
Error Message Could not create group 
Type (Condition) Request is contained in Value 
Value Allow, Disallow (Case Sensitive, should 
match with the button names provided 
above) 


7.4 Delete Group Button 


Create a button (as mentioned in Table 7-4) to delete an existing group. When you submit 
the page through this button, the process Delete Group (created next) is executed. 


Table 7-4. Delete Group Button Attributes 


Action Attribute Value 
Create Button Name Delete 
Label Delete Group 
Region Parameters 
Button Position Create 
Hot Yes 
Action Submit Page 
Type (Condition) Item = Value 
Item P21_EXISTINGNEW 
Value EXISTING 
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7.5 Delete Group Process 


Create a new process (as specified in Table 7-5) to drop a group. This process will execute 
only when the user selects a group from the select list, in other words, when the value of 
the page item P21 GROUPIDI is not zero. Note that the GL USERS table already has a 


constraint to avoid the deletion of a group with associated users. 


Table 7-5. Delete Group Process Attributes 


Action Attribute 
Create Process Name 
Type 
PL/SQL Code 
Point 


Success Message 
Error Message 

When Button Pressed 
Type (Condition) 


Item 


7.6 Group Privileges Region 


Value 


Delete Group 
PL/SQL Code 


DELETE FROM gl 
groups detail WHERE 
groupID=:P21 GroupIDIL; 
DELETE FROM gl - 
groups. master WHERE 
groupID=:P21 GroupIDIL; 


Processing 

Group Deleted Successfully 
Could not delete group 
Delete 


Item is NOT NULL and NOT 
Zero 


P21_GROUPID1 


This is another static content region that will carry tree and classic report regions to 
display the application access privileges of a selected group. The region will be displayed 
only when you select the EXISTING option from the radio group. Use Table 7-6 to create 


this region. 


Table 7-6. Group Privileges Region Attributes 
Action Attribute 
Create Region Title 
Type 
Type (Condition) 
Item 


Value 
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Value 

Group's Privileges 
Static Content 

Item = Value 

P21 EXISTINGNEW 
EXISTING 


CHAPTER 7 ™ USER GROUPS 


7.7 Tree Region 


Add a tree region to the Group's Privileges region (using Table 7-7) to display the 
application access rights of the selected group. The query used for this tree is similar to 
the one used in Chapter 6, except for the link column, which uses the inline JavaScript 
call ' javascript :pageItemName(' | |apex escape.js literal(segmentid)||')' As 
link to a function named pageItemName, defined in Table 7-7. The APEX ESCAPE package 
provides functions for escaping special characters in strings to ensure that the data is 
suitable for further processing. The JS LITERAL function, of the APEX ESCAPE package, 
escapes and optionally enquotes a JavaScript string. 

The function (pageItemName) is called in the tree’s query link. The calling procedure 
(in the query) passes a segment ID to the function’s selectedNode parameter. The $s 
(which is a JavaScript function) sets the value of a hidden page item (P21_SELECTED_ 
NODE) to the value received in the selectedNode parameter, which is then used to 
refresh another region (Selected Segment) to display the relevant segment along with its 
access privilege. 


Table 7-7. Tree Region Attributes 


Action Attribute Value 
Create Region Title Group: &P21_GROUPTITLE1. 
Type Tree 
SQL Query Book_Code\Chapter7\Tree 
Query.txt 
Parent Region Group’s Privileges 
Select Node Page Item P21_SELECTED_NODE (to save 
(Under Attributes) the Tree state) 
Create Page Item Name P21 SELECTED NODE 
Type Hidden 
Value Protected No 
Region Group: &P21 GROUPTITLE1. 
Modify Page 21 Function and Global Variable function 


Declaration (Click on the root pageltemNamef(selectedNode) 

node - Page 21: User Groups - (Å 

to enter this code) $s('P21 SELECTED NODE/, 
selectedNode); 


j 
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7.8 Add Classic Report Region 


This report will show the name of the selected segment, along with its access privilege. 
A button will also be added to this region to allow/revoke the access right. The report 
is presented using a query that is based on the value of the hidden item, which P21_ 
SELECTED_NODE. Set the attributes as indicated in Table 7-8 for this region. 


Table 7-8. Classic Report Region Attributes 


Action Attribute Value 
Create Region Title Selected Segment 
Type Classic Report 
SQL Query SELECT s.segmentTitle,g.allow access 


FROM gl segments s, gå groups detail g 
WHERE s.segmentID=:P21 SELECTED 
NODE AND 
s.segmentID=g.segmentID AND 
g.groupID=:P21 GROUPIDI1 


Page Items to Submit P21 SELECTED NODE 


Parent Region Group's Privileges 
Start New Row No 

Type (Condition) Item = Value 

Item P21 EXISTINGNEW 
Value EXISTING 


7.9 Dynamic Action to Refresh Region 


You also need to refresh the classic report region (Selected Segment) with the appropriate 
data when the user switches from one tree node to another. The dynamic action mentioned 
in Table 7-9 serves this purpose. Create this dynamic action under the Change node. 
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Action Attribute 
Create Dynamic Action Name 
Event 
Selection Type 
Item(s) 


Action (under Show node) 


Selection Type 


Region 
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Value 


Refresh Region 

Change 

Item(s) 

P21 SELECTED NODE 
Refresh 

Region 


Selected Segment 


7.10 Add Button and a Process to Allow/Revoke 


segment Access Right 


This button will appear in the Selected Segment report region. When clicked, it will 
invoke the associated process to either allow or revoke access privilege to or from the 
selected group. Use Table 7-10 to create the button and the corresponding process. 


Table 7-10. Button and Process Attributes 


Action Attribute 

Create Button Name 
Label 
Region 


Button Position 
Hot 
Action 
Add Page Process Name 
Type 
PL/SQL Code 


Point 


When Button Pressed 


Value 


Allow/Revoke 

Allow/Revoke 

Selected Segment 

Next 

Yes 

Submit Page 

Update Allow_Access Column 
PL/SQL Code 


Book_Code\Chapter7\Allow 
Access.txt 


Processing 


Allow/Revoke 


www.allitebooks.com 


59 


CHAPTER 7 — USER GROUPS 


7.11 


Execute the following steps to test your work: 


1. 


Note 


Test Your Work 


Save your work and execute the module from the Setup > 
User Groups menu. The page resembling Figure 7-1 should 
come up. 


Click the New option in the Parameters pane. 
Enter a title for the new group. For example, enter Admins. 


Click the button Create Group - Allow All. This should create 
the Admins group with all application privileges. 


Click the Existing option, and select Admins from the select 
list. Click different tree nodes and watch the changes in the 
right pane. 


Click the Allow/Revoke button and note the immediate 
reflection. 


The value Yin the Allow Access column says that the selected 
group has the access privilege on the selected segment. 


Add two more groups. Name the first one Managers and the 
second one as Clerks. Create the Managers group using the 
Create Group - Allow All button. Create the Clerks group using 
the Create Group - Disallow All button. 


Sometimes when you click a segment node you do not see anything in 


the Selected Segment region; this happens when you forget to select a group from the 


select list. 
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7 The Cloud Accountant Segment på Allow access 


Home 
Y Select Switch Month Y 
7 Select (Company/Vear/Month) L 
Switch Company 
Switch Year ee EE 
Switch Month —& Application Segment Access Right 
> Setup 
b Transactions 
Po Utilities New Group Creation Form 
d Reports | 
A Ea Spc” Obing Oien Group ID: 4 Tile Clerks 
Feedback Create Group - Allow All Create Group - Disallow All 





Figure 7-1. Group's Privileges page 


7.12 Summary 


You ve successfully set up the application access privileges, but these privileges are not 
yet implemented. This is because the application is in the development phase and only 
after its completion will you be in a position to completely deploy the security module, 
which will be done in Chapter 32. In the next chapter, you will create a setup to add 
accounts of the application users. 
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Create Users 





After creating groups, you add users to them, as shown in Figure 8-1 later in this chapter. 
You input a user ID for each new user, but when you call up an existing user's record for 
modification, this value is displayed as read-only text. You also allocate a default company 
to each new user to work in. This allocation is helpful in restricting a user to handling the 
accounts of a specific company. You might notice from Figure 8-1 that besides assigning 
the Admins group, you also specify whether the user is an administrator. This is because 
you have a column (Admin) in the GL_USERS table that explicitly assigns administrative 
rights to those users marked as administrators, irrespective of the group to which they 
belong. This explicit marking is necessary in some cases to quickly assess whether a user is 
an administrator. You'll see an instance of this in the next chapter. 


USERS TABLE 


CREATE TABLE gl users 

(userID VARCHAR2(50), cocode NUMBER CONSTRAINT fk users REFERENCES gl 
company (Cocode), coyear NUMBER(4), comonthid NUMBER(2), groupID NUMBER(4) 
CONSTRAINT fk users2 REFERENCES gl groups _master(groupID), 

password VARCHAR2(4000), admin VARCHAR2(1), CONSTRAINT gl users pk PRIMARY 
KEY (userID) ENABLE) 





Besides their usual credentials, this table will store company, year, and month 
information for each user. This information will be displayed through the Global Page on 
every application page so that users will know where their transactions are going to be 
saved. For more details, see Chapter 10. 


8.1 Create Pages 


Select the Form option followed by Form on a Table with Report to create Report and 
Form pages, as mentioned in Table 8-1. 
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Table 8-1. Report and Form Page Attributes 


Page Type 


Report Page 


Form Page 


Attribute 


Implementation 
Page Number 
Page Mode 

Page Name 
Region Title 
Region Template 


Breadcrumb 


Table/View owner 
Table/View Name 


Navigation Preference 


Existing Navigation Menu Entry 
Report Columns 


Edit Link Image 


Page Number 
Page Name 

Page Mode 
Region Title 
Region Template 


Primary Key Type 


Form Columns 


Data Manipulation Process 


Value 


Interactive 

22 

Normal 

Users Report 
Application Users 
Standard 


- do not add breadcrumb 
region to page - 


Accept the displayed value 
GL USERS 


Identify an existing navigation 
menu entry for this page 


Setup 
Select all columns 


Select any edit link image from 
the provided options 


23 

User Form 
Modal Dialog 
Application User 
Standard 


Managed by Database 
(ROWID) 


Select three columns: USERID, 
GROUPID, and ADMIN 


Insert=Yes, Update=Yes, 
Delete=Yes 


After creation, modify both these pages to set the attributes listed in Table 8-2. The 
default query in the source SQL query is replaced with a custom join query, which fetches 


users’ records from multiple tables. 
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Table 8-2. Modified Page Attributes 


Action Attribute Value 

Modify Region on Users Region Application Users 

Report Page SQL Query Book CodeVChapter8VSQL Query.txt 
Modify Region on User Region Application User 

Form Page Title Application User: &P23 USERID. 


8.2 Greate/Modify Items 


Add and amend the items on page 23 using Table 8-3. The first item (Display Only) is 


added (between two existing items: User ID and Group ID) to show the ID of the selected 
user as read-only text. The condition for this item is set so that it will display only when 
you call a record of an existing user for modification. The opposite condition is set for the 
item P23 USERID to make it visible only for new records. 


Table 8-3. Create/Modify Items 
Action Attribute 


Item Name 


Type 
Label 


Create Page Item 


Sequence 
Source Type 
Column Name 
Condition Type 
Item 

Modify Item Item Name 

Label 

Value Placeholder 

Condition Type 


Item 


Value 


P23 USERID2 
Display Only 
<b>User ID:</b> 

25 (between UserID and GroupID) 
Database Column 
USERID 

Item Is NOT NULL 
P23 USERID 

P23 USERID 
<b>User ID:</b> 
Enter in UPPER CASE 
Item is NULL 

P23 USERID 


(continued) 
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Table 8-3. (continued) 


Action 


Modify Item 


Modify Item 


Create Page Item 
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Attribute 

Item Name 
Type 

Label 
Template 
Value Required 
LOV Type 

SQL Query 


Item Name 
Type 

Label 

No. of Columns 
LOV Type 
Static Values 
Display Null Value 
Default Type 
Static Value 
Item Name 
Type 

Label 

Region 
Template 

Value Required 
LOV Type 

List of Values 


Source Type 


Value 


P23 GROUPID 
Select List 
<b>Group:</b> 
Required 

Yes 

SQL Query 


SELECT groupTitle d, groupID r FROM 


gl groups master 

P23 ADMIN 

Radio Group 
<b>Administrator:</b> 

2 

Static Values 

STATIC: Yes; YNo;N 

No 

Static Value 

N 

P23 COMPANY 

Select List 

<b>Default Company:</b> 
Application User: &P23 USERID. 
Required 

Yes 

Shared Component 
COMPANIES 

Null 
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8.3 Create a Process to Set Company, Year, and 
Month 


The process mentioned in Table 8-4 will be executed when either the CREATE or the 
APPLY CHANGES buttons are clicked on page 23. The process is added to fill in values for 
the company, year, and month columns based on the default company that is selected for 
a user. Create this process under the Processes node and place it just after the first process 
named Process Row of GL USERS. If you place it in the last position, it won't execute 
because of the preceding Close Dialog process, which will execute before this process and 
will close the page. 


Table 8-4. Process Attributes 


Action Attribute Value 
Create Process — Name Set Company Year Month 
Type PL/SQL Code 


PL/SQL Code Book_Code\Chapter8\Company Year Month.txt 
Condition Type Request is contained in Value 


Value CREATE, SAVE (case sensitive, must match button 
names) 


0.4 Test Your Work 


Save your work and run the module from the Setup » Users menu. You can view the two 
pages of the module in Figure 8-1. 


1. Click the Create button. 


2. Enter SUPER in UserID, set Group to Admins, select Yes for 
Administrator, set Default Company to ABC & Company, 
and click Create. Note that the password column of the new 
user will be blank at this stage. How to set user passwords 
is discussed in the next chapter. Modify this user and take 
a look at the user ID, which should be displayed as an 
unmodifiable text. 


3. Create two more users (belonging to different groups), as 
shown in Figure 8-1. 
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User ID Group Company 

(DEMO Managers XYZ & Company 
We JOHN Clerks ABC & Company 
Å SUPER Admins ABC & Company 


Figure 8-1. Two pages of the module 


8.5 Summary 


Year 


2016 


2015 


2016 


Month Pateword Admin 


2SFTBEGMALIGCOSSASIDFIEBET IFT H 


14100E145352E250662334849C EBS96A N 


SBLIOEABSEOIFFSTTTA0 ASD JMF DADE Y 








The users you created in this chapter are the holy souls who can access your application. 
In the next chapter, you will create a form to set/reset their passwords. 
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Reset Password 





A user who wants to access this application can do so only with a valid ID and password. 
You created some user accounts in the previous chapter and assigned them IDs and 
groups. In this chapter, you will create a facility for setting and changing passwords. Note 
that this feature will be invoked from the Utilities menu. The Reset Password interface 

is self-explanatory. Administrators select a user ID and then provide and confirm a new 
password for it. The application then checks to make sure both of these are identical and, 
if so, allocates the password to the user ID. Users may also use the same method to reset 
an existing password. The initial password allocation task is performed by the application 
administrator. 


9.1 Add Custom Functions 


The users you created in the previous chapter reside in the database table GL USERS 
without passwords; therefore, none of them can access the application at the moment. 
You'll create the password interface by adding a blank page to the application, but 

first you have to add two custom functions, CUSTOM AUTH and CUSTOM HASH, to your 
database. After receiving login information, the APEX engine evaluates and executes the 
authentication scheme that will be configured at the end of this chapter. The scheme 
makes a call to a function named CUSTOM AUTH, which, in conjunction with the CUSTOM _ 
HASH function, authenticates users using the credentials stored in the GL USERS table. 
The two functions are added to the database to implement a custom authentication 
mechanism. The CUSTOM HASH function is a subordinate function to the CUSTOM AUTH 
function and is called from the parent function to obfuscate passwords with hash 
algorithm. Execute the following steps to add these two functions to the database: 


1. Open the SQL Commands interface from SQL Workshop. 


2. Copy and paste the two functions available in the 
Chapter9\Custom Functions.txt file and click the Run 
button to store them in the database. If you are using the 
online APEX version, then create the functions provided 
in the CustomFunctions.txt file, which uses the DBMS _ 
OBFUSCATION TOOLKIT package. For an offline APEX version, 
use the Custom Functions DBMS CRYPTO.txt file. 
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3. For verification, open the Object Browser interface and 
locate the two functions in the Functions category, as shown 
Figure 9-1. 


Funrnctons 


Figure 9-1. Functions category 


Note that the DBMS OBFUSCATION TOOLKIT package has been deprecated in favor 
of DBMS CRYPTO, which is now used to encrypt and decrypt data. It provides support 
for various industry-standard encryption and hashing algorithms, including the highly 
secure Advanced Encryption Standard (AES) encryption algorithm. AES has been 
approved as a new standard to replace the Data Encryption Standard (DES). 

Oracle Database installs the DBMS_CRYPTO package in the SYS schema. In order to use 
this package, users must be granted access to it, as shown here: 


conn sys/*******% as sysdba 
grant execute on sys.dbms_crypto to <user>; 


Note that you do not have access to the SYS schema in the online APEX version, so 
you can’t use DMBS CRYPTO. 

In a production environment, where you have access to the SYS schema, run the two 
functions provided in the Custom Functions DBMS CRYPTO.txt file in the user’s schema 
to use DMBS_CRYPTO instead of the DBMS OBFUSCATION TOOLKIT package. 


9.2 Create Page 


Create the password interface using a blank page and then set the attributes listed 

in Table 9-1. Note that this page will be called from the Reset Password option in 

the Utilities menu. The query defined in the SQL Query attribute for the Select List 
(P56_USERID) uses a condition in the WHERE clause (admin='Y’ ) to quickly assess the 
presence of an administrator, who is allowed to change the password of any user. This 
is the reason for the inclusion of the Admin column in the GL_USERS table. By setting this 
condition, the Select List item, which is added to display a list of all users, will be visible 
to administrators only. Normal users will see only their own user ID in the display item 
named P56_USERID2. 
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Action Attribute Value 
Create Page Page Number 56 
Name Reset Password 
Page Mode Normal 
Breadcrumb - don't use breadcrumbs on 


Create Region 


Navigation Preference 


Existing Navigation Menu Entry 


Title 


page - 
Identify an existing navigation 
menu entry for this page 


Utilities 


Reset Password 


Type Static Content 
Template Standard 
Create Page Item Name P56 USERID 

Type Select List 

Label <b>User ID:</b> 

Region Reset Password 

LOV Type SQL Query 

SQL Query SELECT userid d, userid r 
FROM gl users 

Condition Type Rows Returned 

SQL Query SELECT 1 FROM gl users 


WHERE userid = :APP USER 


AND admin = 'Y' 


In Table 9-2, the Display Only item (P56 USERID2) will show the ID of the current 


nonadmin user using a substitution string. (&APP USER). The Save Session State 
attribute is set to YES to store the current item value in the session state when the page 
gets submitted. If set to No, you'll encounter the error message “No user selected for 

the reset password process.” You also used an opposite WHERE clause in the condition 
query, in contrast to the previous one, to display nonadmin IDs. Finally, you added two 
password page items. The first one is used to enter the new password, whereas the other 
one is added for its confirmation. 
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Table 9-2. Items and Button Attributes 


Action 


Create Page Item 


Create Page Item 


Create Page Item 


Create Button 


12 


Attribute 

Name 

Type 

Label 

Save Session State 
Region 

Default Type 
Static Value 
Condition Type 
SQL Query 


Name 

Type 

Label 

Submit When Enter Pressed 
Region 

Template 

Value Required 

Name 

Type 

Label 

Submit When Enter Pressed 
Region 

Template 

Value Required 

Name 

Label 

Region 

Button Position 

Hot 


Action 


Value 


P56_USERID2 
Display Only 
<b>User ID:</b> 
Yes 

Reset Password 
Static Value 
&APP_USER. 
Rows Returned 


SELECT 1 FROM gl users 


WHERE userid = :APP USER AND 


admin != 'Y' 

P56 PASSWORDI 
Password 
<b>New Password:</b> 
No 

Reset Password 
Required 

Yes 

P56 PASSWORD2 
Password 
<b>Confirm Password:</b> 
No 

Reset Password 
Required 

Yes 

RESET PW 

Reset Password 
Reset Password 
Copy 

Yes 

Submit Page 


Note 
process. 
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Upon page submission, the RESET PW button will run the Update Password 


9.3 Check User ID and Match Password 
Validations 


In Table 9-3, the first validation checks for the existence of a user ID, while the second one 


checks for a match. 


Table 9-3. Validation Attributes 


Action 


Create Validation 


Create Validation 


Attribute 
Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


Name 


Type 
PL/SQL Function 


Error Message 


When Button Pressed 


Value 


Check User ID 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter9\Check User 
ID.txt 


Select a user for the reset password 
process 


RESET PW 
Match Passwords 


PL/SQL Function Body (returning 
Boolean) 


Book_Code\Chapter9\ Match 
Passwords.txt 


Passwords do not match 


RESET PW 
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9.4 Update Password Process 


The process specified in Table 9-4 will store a new password for the selected user. 


Table 9-4. Update Password Process Attributes 


Action Attribute Value 
Create Process Name Update Password 
Type PL/SQL Code 
PL/SQL Code Book CodeVChapter9V Update Password.txt 
Point Processing 
Success Message Password changed successfully 
Error Message Could not change password 


When Button Pressed RESET PW 


If you run the page at this stage, you won't see the user's select list. This is because 
the select list item, P56_USERID, is visible only when the currently logged in user is an 
administrator. Since the account you are currently logged in with doesn’t exist in the 
GL_USERS table, the list doesn’t appear. To make the list visible, create an admin account 
for yourself having the same ID you are currently using from the Users option in the Setup 
menu. After creating your new account, invoke the Reset Password page to test your work 
by setting passwords for all application users, including yourself. Note that the passwords 
you set through this interface are case-sensitive; therefore, care must be taken of when 
saving them. Verify the addition of passwords to the table by accessing the table either 
from the Object Browser utility in SQL Workshop or through the user report page from 
the Users menu. 


9.5 Change Authentication Scheme 


At this stage you can set and browse the users’ passwords, but you cannot use these 
passwords to log in. This is because of the currently implemented authentication 
scheme, which was set to the Application Express Scheme when you initially created the 
application. To authenticate the users through their new IDs and passwords, you have to 
create a custom authentication scheme. Here are the steps to implement this scheme: 


1. Select Authentication Scheme from Shared Components. 
2. Click the Create button. 


3. Select the option Based on the preconfigured scheme from 
the gallery and click Next. 
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4. Enter Custom Scheme in the Name box and select Custom as 
the Scheme Type. On the same page, enter CUSTOM AUTH 
for the Authentication Function Name attribute. This is the 
name of the function that you created earlier in this chapter to 
verify users' credentials on the login page. 


5. Click the Create Authentication Scheme button. The new 
scheme will appear on the page with a check mark. Now you 
can access the application using the credentials stored in 
the GL USERS table. Access the Reset Password page, which 
should look like Figure 9-2. 


Reset Pas word 





User ID: SUPER 


New Password: . eeeeeoooee 


Conti m Password: $ eeeeeoooce 


Figure 9-2. Reset Password page 


9.6 Summary 


Now that you have allowed your users to access the application, you must also allow 
privileged users to switch company, year, and month, which comes next. 
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Switch Company, Year, 
and Month 





This page allows users to switch the company, year, and month depending on their access 
privileges. Recall that every new user was allotted a default company, while an associated 
process saved a default year and month within their profiles so that they could start using 
the application right away. These selections are saved in the GL_USERS table and are 
reflected on the top-right corner of every page through the Global Page. 


10.1 Create Page 


This segment will be created using a blank page. After creating the blank page, add page 
components, as listed in Table 10-1. The last two select lists added to the page use an 
attribute called Cascading LOV Parent Item(s). This attribute is used to associate an LOV 
to its parent. For example, when you select a company, the second list is refreshed to 
display years of the selected company. Similarly, the third list gets populated with the 
corresponding months of the selected company. 
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Table 10-1. Page Attributes 


Action 


Create Page 


Create Region 


Create Page 
Item 
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Attribute 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu Entry 


Title 

Type 

Template 
Name 

Type 

Label 

Region 
Template 
Value Required 
LOV Type 


SQL Query 


Source Type 
SQL Query 


Source Used 


Value 


30 

Select 

Normal 

- don't use breadcrumbs on page - 


Identify an existing navigation 
menu entry for this page 


Select 

Select 

Static Content 
Standard 

P30 COMPANY 
Select List 
<b>Company</b> 
Select 

Required 

Yes 

SQL Query 


SELECT coname, cocode FROM 
gl company ORDER BY cocode 


SQL Query (return single value) 


SELECT cocode FROM gl users 
WHERE userid = :APP USER 


Always, replacing any existing 
value in session state 


(continued) 


Table 10-1. (continued) 
Action Attribute 


Create Page Name 

Item Type 
Label 
Region 
Template 
Value Required 
LOV Type 


SQL Query 


Cascading LOV Parent Item(s) 


Source Type 
SQL Query 


Source Used 


Create Page Name 

Item Type 
Label 
Region 
Template 
Value Required 
LOV Type 


SQL Query 


Cascading LOV Parent Item(s) 


Source Type 
SQL Query 


Source Used 


CHAPTER 10 — SWITCH COMPANY, YEAR, AND MONTH 


Value 


P30 YEAR 

Select List 

<b>Year</b> 

Select 

Required 

Yes 

SQL Query 

SELECT DISTINCT(coyear) d, 
coyear r FROM gl fiscal year 


WHERE cocode=:P30 COMPANY 
ORDER BY coyear 


P30 COMPANY 
SQL Query (return single value) 


SELECT coyear FROM gl users 
WHERE userid = :APP USER 


Always, replacing any existing 
value in session state 

P30 MONTH 

Select List 

<b>Month</b> 

Select 

Required 

Yes 

SQL Query 

SELECT 
DISTINCT(comonthname) d, 
comonthid r 

FROM gl fiscal year WHERE 


cocode=:P30 COMPANY 
ORDER BY comonthid 


P30 COMPANY 
SQL Query (return single value) 


SELECT comonthid FROM 
gl users 
WHERE userid = :APP USER 


Always, replacing any existing 
value in session state 
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10.2 Add Button 


The button in Table 10-2 will submit the page to update the user's profile, using the 


process mentioned in Table 10-4. 


Table 10-2. Button Attributes 
Action Attribute 


Button Name 


Label 


Create Button 


Region 


Button Position 


Hot 


Action 


10.3 Add Validations 


Value 
Select 
Select 
Select 


Copy 
Yes 


Submit Page 


The three validations in Table 10-3 are included to check the switching privileges of a user 


for the three options. 


Table 10-3. Validation Attributes 


Action Attribute 


Name 


Type 
PL/SQL Function 


Create Validation 


Error Message 


When Button Pressed 


Name 


Type 
PL/SQL Function 


Create Validation 


Error Message 


When Button Pressed 
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Value 


Check Switch Company Privilege 
PL/SQL Function (returning Error Text) 


Book_Code\Chapter10\Switch 
Company.txt 


You are not allowed to switch company 
Select (not -select-) 

Check Switch Year Privilege 

PL/SQL Function (returning Error Text) 
Book_Code\Chapter10\Switch Year.txt 
You are not allowed to switch year 
Select (not -select-) 


(continued) 
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Table 10-3. (continued) 


Action Attribute Value 
Create Validation Name Check Switch Month Privilege 
Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter10\Switch Month. 
txt 
Error Message You are not allowed to switch month 


When Button Pressed Select (not -select-) 


10.4 Update User Profile Process 


After passing the previous validations, the process specified in Table 10-4 is executed to 
store new values in the GL_USERS table. 


Table 10-4. Update User Profile Process 


Action Attribute Value 
Create Process Name Update User Profile 
Type PL/SQL Code 
PL/SQL Code UPDATE gl_users SET cocode=:P30_ 


COMPANY, coyear=:P30_YEAR, 
comonthid=:P30_MONTH 
WHERE upper(userid)=upper(: APP_USER); 


Point Processing 

Success Message Company/Year/Month switched 
successfully. 

Error Message Could not switch company/year/month. 


When Button Pressed Select 


10.5 Display Company, Year, and Month 


The page is ready for a test run. Although you can change all the three options as a 
privileged user, there is no way to know whether the changes have taken place, except 
for looking at the GL_USERS table. In this section, you will make these selections visible 
on every application page so that users can see the company, year, and month they are 
working in. You will make use of a Global Page for this purpose. In the main application 
builder, click the Create Page button. Click the Global Page option to move forward. 
Accept the default page number (zero) and click the Create button. Add components 
listed in Table 10-5 to the Global Page. 


8l 


CHAPTER 10 — SWITCH COMPANY, YEAR, AND MONTH 


Table 10-5. Global Page Attributes 


Action Attribute Value 
Create Region Title User Profile 
Type Static Content 
Position Breadcrumb Bar 
Template Blank with Attributes 
Condition Type Current Page != Page (the region will 
not appear on the login page) 
Page 101 
Create Page Item Name PO_USERPROFILE 
Type Display Only 
Label Clear Label 
Region User Profile 
Custom Attributes style="float:right;font- 
weight:bold;font- 
size:20;color:#267ed4;" 
Source Type PL/SQL Function Body 
PL/SQL Function Body Book_Code\Chapter10\User Profile. 
txt 
Source Used Always, replacing any existing value in 


session state 


Everything is set! Run this page (illustrated in Figure 10-1) from the Select menu, 
change the three options, and see the impact in the user profile region, which should now 
be visible on every application page. 
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User Profile Region 
Showing Current OG ABC & Company July, 2016 
Company. Month, 


and Year | 
O Mobile Øy Feedback & SUPER Y 








Company y ABC & Company °* 


å —> Selection Form 
Year 2016 : 


ė 
Month July i 
Figure 10-1. Page to switch company, year, and month 


Note The Year value shown in the user profile region displays the first part of the 
fiscal year, which is fetched from the financial year table. For example, the value shown in 
Figure 10-1 (top) represents 2015-16. A fiscal year starting from July 1, 2015, and ending 
on June 30, 2016, will be displayed as 2015 for all 12 months, even for January 2016 and 
onward. 


10.6 Summary 


Users can access the application and can select their respective companies and fiscal 
years to post transactions. By creating the cost center setup in the next chapter, you allow 
these users to lay the foundation of the data entry process. 
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Cost Centers 





Cost and revenue centers help you maintain accounts of all departments and divisions 
participating in your business. Using this setup, you keep track of revenues generated by 
departments and expenses incurred by them. After creating cost centers, you can link 
them to the main financial accounts in the chart of accounts. This allows you to set a 
default cost/revenue center for every financial account. When you pick up an account 
from the chart of accounts during the voucher generation process, these cost/revenue 
centers come along as default entries to minimize data entry work. 


COST CENTERS TABLE 


CREATE TABLE GL Cost Center 

(Cocode NUMBER CONSTRAINT fk cost center REFERENCES GL Company (Cocode), 
Cccode VARCHAR2(5), 

Cctitle VARCHAR2(25), Cclevel NUMBER(1), 

CONSTRAINT GL COST CENTER PK PRIMARY KEY (Cocode,Cccode) ENABLE) 





11.1 Create Pages 


Create a Form page followed by the Form on a Table with Report option. Using Table 11-1, 
set the attributes for the two pages. 
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Table 11-1. Two Page Attributes 
Page Type Attribute 


Report Page Implementation 
Page Number 
Page Name 
Page Mode 
Region Title 
Region Template 


Breadcrumb 


Table/View owner 
Table/View Name 


Navigation Preference 


Existing Navigation Menu Entry 


Report Columns 
Edit Link Image 


Form Page Page Number 
Page Name 
Page Mode 
Region Title 
Region Template 
Primary Key Type 


Form Columns 


Data Manipulation Process 


Value 


Interactive 

13 

Cost Centers Report 
Normal 

Cost Centers Setup 
Standard 


- do not add breadcrumb region to 
page - 

Accept the displayed value 

GL COST CENTER 


Identify an existing navigation menu 
entry for this page 


Setup 


Select 3 columns - 
CCCODE,CCTITLE, and CCLEVEL 


Select any edit link image from the 
provided options 


14 

Cost Centers Form 

Modal Dialog 

Cost Center 

Standard 

Managed by Database (ROWID) 


Select 3 columns - 
CCCODE,CCTITLE, and CCLEVEL 


Insert=Yes, Update=Yes, Delete=Yes 


After creation, modify the report page (13) to alter the default SQL statement. A 
WHERE clause is added to the default SQL query (indicated in Table 11-2), which fetches 


the current company's cost centers. 
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Table 11-2. Modified Query 
Action Attribute Value 


Modify Region Region Cost Centers Setup 


SQL Query SELECT "ROWID", 
"CCCODE","CCTITLE","CCLEVEL" 
FROM "#OWNER#"."GL_COST_CENTER" 
WHERE cocode = (select cocode from gl users 
where userid = :app_user) 


11.2 Delete Processes 


Remove the two default processes (Process Row of GL_COST_CENTER and reset page) 
created by the wizard from page 14, along with the CREATE and APPLY CHANGES 
buttons. You'll create custom processes and add a new button to handle these operations. 


11.3 Modify Delete Button 


On page 14, modify the Delete button (which was created by the wizard) using 

the attributes mentioned in Table 11-3. You use a JavaScript function to present a 
confirmation box, before deleting a record. Note that the visibility of this button and the 
corresponding delete process is controlled by a condition set on this page, which states 
that this button will be visible only when the P14_ROWID page item is NOT NULL, in other 
words, when the record is fetched from page 13 for modification. You also disable the 
default database action (SQL DELETE action) because you handle this process manually; 
see Table 11-13. 


Table 11-3. Modified Delete Button 


Action Attribute Value 
Modify Button Button Name DELETE 
Action Redirect to URL 
Target javascript:apex.confirm('Are you sure you 


wish delete this record?’,, DELETE’); 
Execute Validations Yes 


Database Action - Select - 
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11.4 Add Button 


Add a new button to page 14 using Table 11-4 to handle new and amended records. 


Table 11-4. New Button Attributes 


Action Attribute Value Attribute Value 
Create Button Name Save Button Position Create 
Label Save Hot Yes 
Region Buttons Action Submit Page 


11.5 Modify Page Items 


Modify page 14 items using Table 11-5. Note that the Level column will be displayed as a 


read-only item. 


Table 11-5. Modified Page Item Attributes 


Action Attribute Value 

Modify Item Name P14 CCCODE 
Template Required 
Value Required Yes 
Width/Maximum Length 5 

Modify Item Name P14 CCTITLE 
Template Required 
Value Required Yes 

Modify Item Name P14 CCLEVEL 
Type Display Only 
Save Session State No 
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11.6 Add Dynamic Action: Evaluate Level 


The dynamic action specified in Table 11-6 will be created on page 14 to calculate a level 
for each cost center account. Note that this setup comprises two levels. The first level, 
which denotes locations, is two digits long (99), while the second one, which represents 
departments or divisions, carries five digits (99999). The first two digits in the second level 
represent its parent level. 


Table 11-6. Dynamic Action Attributes 


Action Attribute Value Attribute Value 
Create Name Evaluate Level PL/SQL Code Book_Code\ 
Dynamic pyent Tose Pocus Chapter11\Evaluate 
Action Level.txt 
Selection Type Item(s) Page Itemsto P14 CCCODE 
Submit 
Item(s) P14 CCTITLE Page Itemsto P14 CCLEVEL 
Return 


Action (under Execute PL/SQL Fire on Page Yes 
Show) Code Load 


11.7 Validation: Check Level 


The validation specified in Table 11-7 will check whether the value of the account level is 
zero. Note that the valid values for this item are 1 and 2 only. The dynamic action created 
in the previous section will calculate this value automatically. 


Table 11-7. Validation: Check Level 


Action Attribute Value 
Create Validation Name Check Level 
Validation Type Item is NOT zero 
Item P14 CCLEVEL 
Error Message You ve defined an invalid 


Cost Center code. 


When Button Pressed Save 
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11.8 Validation: Check Parent Level 


As the name suggests, the validation specified in Table 11-8 is added to check the parent 
level of an account. To implement application integrity, you are not allowed to create 

an account without a parent. For example, in the current setup, a department cannot be 
created without first creating a location. 


Table 11-8. Validation: Check Parent Level 


Action Attribute Value 
Create Validation Name Check Parent Level 
Type PL/SQL Function Body 
(returning Boolean) 
PL/SQL Function Book_Code\Chapter11\ 
Check Parent Level.txt 
Error Message Parent level not found. 
When Button Pressed Save 


Note Duplicate cost center code is eliminated by the table constraint (GL_COST_ 
CENTER PK PRIMARY KEY (Cocode,Cccode)), which shows the generic message “An 
error occurred while saving Cost Center record when you try to enter a code which already 
exists.” To inform the user about the actual problem, you can create a validation to search 
the table for an existing cost center code prior to saving a record. 


11.9 Validation: Check Child Level 


Just like the way you checked for the existence of the parent level while creating a new 
child account, the validation in Table 11-9 will check for the existence of a child account 
before deleting a parent level account. 
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Table 11-9. Validation: Check Child Level 


Action Attribute Value 
Create Validation Name Check Child Level 
Type PL/SQL Function Body (returning 
Boolean) 
PL/SQL Function Book_Code\Chapter11\Check Child 
Level.txt 
Error Message Child account found. Unable to delete 
cost center record. 


When Button Pressed DELETE 


11.10 Validation: Check in Transaction 


An account used even in a single transaction must not be deleted. The validation in 
Table 11-10 is added for this purpose. Note that in this application you will use the last 
level (in other words, level 2) in your transactions to allocate cost centers. 


Table 11-10. Validation: Check in Transaction 


Action Attribute Value 
Create Validation Name Check in Transaction 
Type PL/SQL Function Body (returning 
Boolean) 
PL/SQL Function Book_Code\Chapter11\Check in 


Transaction.txt 


Error Message Account used in transaction. 
Unable to delete cost center record. 


When Button Pressed DELETE 


11.11 Validation: Disallow Code Modification 


Cost centers are rendered in a text item that an end user can easily modify. The validation 
specified in Table 11-11 will prevent the code from being modified in order to retain 
application consistency. The condition set for this validation checks for a value in the 
hidden item (P14_ROWID). A non-null value in this item indicates that a record exists on 
the page with its code. 
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Table 11-11. Validation: Disallow Code Modification 


Action Attribute Value 
Create Validation Name Disallow Code Modification 
Type PL/SQL Function Body (returning 
Boolean) 
PL/SQL Function Book_Code\Chapter11\Disallow Code 


Modification.txt 
Error Message Cost Center code cannot be modified. 
When Button Pressed Save 
Condition Type Item is NOT NULL 
Item P14 ROWID 


11.12 Process: Save Record 


The process being created in Table 11-12 is the one that will save a cost center record. 
Note that this process will handle both new and updated cost centers. 


Table 11-12. Process: Save Record Attributes 


Action Attribute Value 
Create Process Name Save Record 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter11\Save Record.txt 
Sequence 10 
Point Processing 
Success Message Cost Center record saved. 
Error Message An error occurred while saving Cost 
Center record. 


When Button Pressed Save 


11.13 Process: Delete Record 


This process mentioned in Table 11-13 will delete a cost center record after passing all 
validations. 


92 


CHAPTER 11 ™ COST CENTERS 


Table 11-13. Delete Record Process Attributes 


Action 


Create Process 


Attribute Value 

Name Delete Record 

Type PL/SQL Code 

PL/SQL Code DELETE FROM gl_cost_center WHERE 


CCcode=:P14_CCcode AND cocode= 
(SELECT cocode FROM gl_users WHERE 
userid = :app_user); 


Sequence 20 (to execute before the Close Dialog process) 

Point Processing 

Success Message Cost Center record deleted. 

Error Message An error occurred while deleting Cost Center 
record. 


When Button Pressed DELETE 


Remove the CREATE and SAVE button values from the request specified in the Close 
Dialog process to generate continuous cost center records. In the Processing tab, click the 
Close Dialog process. Scroll down to the Condition section in the properties editor, and 
remove the CREATE and SAVE entries from the Value list. By default, the modal page is 
closed when the Create, Save, or Delete buttons are clicked. By removing the CREATE and 
SAVE entries, the dialog page will be closed only when the Delete button is clicked. 


11.14 Add Button: Refresh 


Create a button on page 13 using the attributes listed in Table 11-14 to refresh the cost 


centers report. 


Table 11-14. Refresh Button Attributes 


Attribute 


Button Name 
Label 

Region 

Button Position 
Button Template 
Hot 

Icon CSS Classes 


Action 


Value 

Refresh 

Refresh 

Cost Centers Setup 


Copy 
Text with Icon 


No 
fa-undo 


Submit Page 
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11.15 Test Your Work 


After saving your work, execute the following steps to create cost centers in the 
application: 


1. Run the module from the Setup | Cost Centers menu. 
Figure 11-1 illustrates the two pages of this module. 


2. Click Create on page 13. 
3. Enter 01 in Code and Head Office in Title. 


4. Click the Save button. This will add a new cost center level- 
one record. 


5. Create a new record by entering 01001 for Code and Admin 
for Title. Click Save. This will create the Admin department 
under the Head Office location. Note that the levels for both 
these accounts are assessed automatically by the dynamic 
action created through Table 11-6. 


6. Using the file Cost Centers.xls, in the Book CodeVChapter11 
folder, create the remaining cost centers. The last entry 
(*09-N/A - not applicable”) in the XLS file will be used for all 
financial accounts in the Chart of Accounts (coming up next) 
where cost centers are inapplicable. 
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Cost Centers Setup Site Refresh 'D 





Code bl Tithe Level 






Accounts 






2 Tile Hard (za 
r. = 1 ———® | f ti 
Lø 01003 IT -HÖ Level 1 Used for Locations 
- E 
A R = 
Code” | 
A 02001 Production 2 n’ g 
A 02002 IT - Fac 3 lel 2 — 0 Level 2 Departments Under Locations 
md Dette Castel 
A 03 Warehouse 1 EI 
3 
EA 03001 Store ? 
A 09 N/A 1 
Ø 09001 N/A ? 


Figure 11-1. Cost centers pages 


11.16 Summary 


The cost center is a handy setup for organizations that want to keep track of income and 
expenses. In the next chapter, you will create the heart of financial accounting called the 
chart of accounts. 
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Chart of Accounts 





The chart of accounts (COA) is part of the application that needs to be planned carefully 
before implementation. A well-planned COA provides better insight into the financial 
matters of an organization. A separate COA is created for each company; however, you 
can create a COA for one company—the master COA—and then copy it to the others 
using the Copy COA utility as developed in the next chapter. The accounts created here 
are selected for each transaction during voucher generation, report calls, and preparation 
of financial statements. Because this setup is similar to the cost center setup, you will use 
the copy utility to save some time. The account code used in this setup uses the format 
9-99-999-99999, which contains four separate number groupings or levels. The first level 
defines the nature of account, while the next three levels act as its subcategories. Each 
account specified on the first level belongs to one of the following natures: Equities, 
Liabilities, Assets, Revenues, and Expenses. The initial three levels are called group levels, 
whereas the bottom level (in other words, level 4) is called the transaction level because 
accounts from this level are selected to generate transactions in the vouchers interface. 
The group-level accounts are used in trial balance and financial statement reports to 
extract summarized group-level information. 


CHART OF ACCOUNTS TABLE 


CREATE TABLE GL_COA 

(Cocode NUMBER CONSTRAINT fk_coa REFERENCES GL_Company (Cocode), COAcode 
VARCHAR2(11), 

COAtitle VARCHAR2(50), COAlevel NUMBER(1), COAnature VARCHAR2(11), COAtype 
VARCHAR2(11), Cccode VARCHAR2(5), CONSTRAINT GL COA PK PRIMARY KEY 
(Cocode,COAcode) ENABLE) 
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12.1 Create Three Lists of Values 


Create three LOVs from scratch using Tables 12-1 to 12-3. The first one will show 
departments (level 2) from the cost centers table for association with financial accounts. 
This association is not mandatory. The second LOV contains the five natures mentioned 
earlier for assignment to the first level. The third LOV is created to identify bank accounts. 
It will be visible for the last level only. All accounts marked as “Bank” type in the chart 

of accounts will be used in Chapter 21. Accounts other than banks will be marked as 
“Others” for distinction. Take a look at the COA.x1s file provided in the downloaded code's 
Chapter 12 folder. 


1. Tables 12-1 shows attributes for the Cost Center LOV. 


Table 12-1. First LOV 


Attribute Value 

Name Cost Centers 

Type Dynamic 

Query SELECT cccodel|'-'||cctitle t, cccode c FROM gl cost center 


WHERE cclevel=2 AND cocode=(select cocode from gl users where 
userid=: APP USER) 
ORDER BY I 


2. Set the Name of the second LOV to COA Nature, and its Type 
to Static. 


Table 12-2. Second LOV 


Display Value Return Value 
Equities Equities 
Liabilities Liabilities 
Assets Assets 
Revenues Revenues 
Expenses Expenses 


3.  Setthe Name of the third LOV to COA Types, and its Type to 
Static. 


Table 12-3. Third LOV 


Display Value Return Value 
Bank Bank 
Others Others 
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12.2 Copy Pages 


The COA interface will be created by copying the two pages from the Cost Centers 
segment. Open the Cost Centers Report page (Page 13). Next click the Create menu 


| 
| 


and select the option Page as Copy. In the copy page wizard, set the attributes 
mentioned in Table 12-4. 


Table 12-4. Copy Pages Attributes 


Attribute Value 

Create a page as a copy of Page in this application 

Copy from Page 13. Cost Centers Report 

Copy to New Page Number 15 

New Page Name Chart of Accounts Report 

Breadcrumb - do not use breadcrumbs on page - 

Button (New Value) Create and Refresh (accept the default new values) 

Region (New Value) Chart of Accounts Setup 

Navigation Preference Identify an existing navigation menu entry for this 
page 


Existing Navigation Menu Entry Setup 


Now open the Cost Centers Form page (page 14) and repeat the previous steps to 
make a copy of it using the attributes listed in Table 12-5. 


Table 12-5. Page Copy Attributes 


Attribute Value 

Page as a copy of Page in this application 

Copy from Page 14. Cost Centers Form 

New Page Number 16 

New Page Name Chart of Accounts Form 

Breadcrumb - do not use breadcrumbs on page - 

Cost Center Region New Value Chart of Accounts 

Navigation Preference Identify an existing navigation menu entry for this 
page 


Existing Navigation Menu Entry Setup 
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12.3 Modify the Report Page (Page 15) 


Modify the COA report page by setting the attributes listed in Table 12-6. 


Table 12-6. COA Report Page Modified 


Action 


Modify Region 


Modify Interactive 
Report 


Modify Button 


Attribute 
Region Title 
SQL Query 


Column Headings 


Target (under 
Attributes) 


Name (under Set Items) 


Button Name 


Target 


Value 


Chart of Accounts Setup 


SELECT “ROWID”, “COACODE”, 
“COATITLE”, “COALEVEL’, 
“COANATURE”, “COATYPE”, 
“CCCODE” 

FROM “#OWNER?#”.“GL_COA” 

WHERE cocode = (select cocode from 

gl users 

where userid = 

:app user) 
ORDER BY coacode 


Set appropriate column headings as 
shown in Figure 12-2 


16 (replacing the existing value 14 to 
point to the COA form page) 


P16 ROWID (previous value is 
P14 ROWID) 


CREATE 


Page = 16 (to call COA Form page) 
Clear Cache = 16 


12.4 Modify the Form Page (Page 16) 


When you call this page to modify a COA entry, you'll see three items: P16 CCCODE, 
P16 CCTITLE, and P16 CCLEVEL. These items relate to the cost centers setup. In this 
section, you'll modify these items and will add a few more for this setup, as mentioned in 


Tables 12-7 to 12-9. 
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Table 12-7. P16 CCCODE, P16_CCTITLE, and P16_CCLEVEL Attributes 


Attribute P16_CCCODE P16_CCTITLE P16_CCLEVEL 
Name (new) P16_COACODE P16_COATITLE P16_COALEVEL 
Width 11 50 

Maximum Length 11 50 


Type (under Source) Database Column Database Column Database Column 


Database Column COACODE COATITLE COALEVEL 


Add the new items in Table 12-8 to this page. 


Table 12-8. New Item Attributes 

Action Attribute 

Create Page Item Name 
Type 
Label 
Region 


Value Required 


LOV Type 

Shared Component 
Display Null Value 
Source Type 
Database Column 


Source Used 


Create Page Item Name 
Type 
Label 
Save Session State 
Region 


Source Type 


Value 


P16 COANATURE 
Select List 

Nature 

Chart of Accounts Form 


No (because nature is not required for 
levels greater than 1) 


Shared Component 

COA NATURE (Table 12-2) 
No 

Database Column 
COANATURE 


Always, replacing any existing value 
in session state 


P16_NATURE_DISPLAY 
Display Only 

Nature 

No 

Chart of Accounts Form 
Null 


(continued) 
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Table 12-8. (continued) 


Action 


Create Page Item 


Create Page Item 


Attribute 
Name 
Type 
Label 
Region 


Value Required 


LOV Type 

Shared Component 
Display Extra Values 
Display Null Value 
Source Type 
Database Column 


Source Used 


Name 

Type 

Label 

Value Required 
LOV Type 

Shared Component 
Source Type 
Database Column 


Source Used 


Value 


P16_COATYPE 

Select List 

Account Type 

Chart of Accounts Form 


No (because it is not required for 
levels 1 through 3) 


Shared Component 
COA TYPES (Table 12-3) 
No 

Yes 

Database Column 
COATYPE 


Always, replacing any existing value 
in session state 


P16_CCCODE 

Popup LOV 

Cost Center 

No 

Shared Component 

COST CENTERS (Table 12-1) 
Database Column 


CCCODE 


Always, replacing any existing value 
in session state 


On the Rendering tab, expand the node labeled Pre-Rendering. Modify the process 
named Fetch Row from GL_COST_CENTER under this node to show and link to the 
correct segment, as shown in Table 12-9. 


Table 12-9. Fetch Row Process Modifications 
Attribute 


Action 


Modify Process 
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Name (new) 
Table Name 
Primary Key Column 


Primary Key Item 


Value 

Fetch Row from GL_COA 
GL_COA 

ROWID 

P16_ROWID 
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12.5 Modify/Create Dynamic Actions 


Modify the Evaluate Level dynamic action. In the When section, change item(s) from 
P16_CCTITLE to P16_COACODE. Expand this dynamic action node and click Execute 
PL/SQL Code under the True subnode to set the attributes listed in Table 12-10. The value 
of level is determined by the code size. 


Table 12-10. Evaluate Level Modifications 


Action Attribute Value 
Modify Dynamic Action PL/SQL Code Book_Code\Chapter12\ 
Evaluate Level.txt 
Page Items to Submit P16_COACODE 
Page Items to Return P16_COALEVEL 


Create the dynamic actions listed in Table 12-11 to 12-20 to show/hide P16_ 
COANATUBRE and other page items when the value of the Level page item changes. 


Table 12-11. Hide Show Item Dynamic Action 


Action Attribute Value 

Create Dynamic Action Name Hide Show Item 
Event Change 
Selection Type Item(s) 
Item P16_COALEVEL 
Condition equal to 
Value l 


Note The previous condition is set for the dynamic action. It says the following: 


If P16 COALEVEL=1 then 

Show: P16 COANATURE and 

Hide: P16 NATURE DISPLAY,P16 COATYPE,P16 CCCODE 
Else 

Hide: P16 COANATURE 


Table 12-12 shows the true action attributes. 
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Table 12-12. True Action Attributes 


Attribute Value 

Action Show 

Selection Type Item(s) 

Item(s) P16_COANATURE (this is the page element to control) 


Fire On Page Load Yes 


Now, right-click the False node, and select Create False Action. Set the attributes in 
Table 12-13 for the False action. 


Table 12-13. False Action Attributes 


Attribute Value 

Action Hide 

Selection Type Item(s) 

Item(s) P16 COANATURE 


Fire On Page Load Yes 


Add another True action under the True node using the attributes in Table 12-14. 


Table 12-14. Second True Action Attributes 


Attribute Value 

Action Hide 

Selection Type Item(s) 

Item(s) P16 NATURE DISPLAY P16 COATYPEP16 CCCODE 


Fire On Page Load Yes 


Create the dynamic action in Table 12-15 to show/hide the Type and Cost Center 
items when the value of Level is 4. 
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Table 12-15. Show Type and Cost Center Dynamic Action 


Action Attribute Value 
Create Dynamic Action Name Show Type and Cost Center 
Event Change 
Selection Type Item(s) 
Item P16_COALEVEL 
Condition equal to 
Value 4 


Note The condition says the following: 


If P16 COALEVEL=4 then 

Show: P16 COATYPE,P16 CCCODE 
Else 

Hide: P16 COATYPE,P16 CCCODE 


Table 12-16 shows the true action attributes. 


Table 12-16. True Action Attributes 


Attribute Value 

Action Show 

Selection Type Item(s) 

Item(s) P16 COATYPE, P16_CCCODE 


Fire On Page Load Yes 


Right-click the False node, and select Create False Action. Set the attributes in 
Table 12-17 for the False action. 


Table 12-17. False Action Attributes 


Attribute Value 

Action Hide 

Selection Type Item(s) 

Item(s) P16_COATYPE, P16_CCCODE 


Fire On Page Load Yes 
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Evaluate and turn the account nature into a display-only item based on the first level, 
for level numbers 2, 3, and 4, as shown in Table 12-18. 


Table 12-18. Evaluate Nature Item Dynamic Action 


Action Attribute Value 

Create Dynamic Action Name Evaluate Nature 
Event Lose Focus 
Selection Type Item(s) 
Item(s) P16 COACODE 
Action (under Show node) Execute PL/SQL Code 
PL/SQL Code Book_Code\Chapter12\ 

Evaluate Nature.txt 

Page Items to Submit P16_COACODE 
Page Items to Return P16_NATURE_DISPLAY 
Fire on Page Load Yes 


Create the dynamic action in Table 12-19 to show/hide P16_NATURE_DISPLAY 
when the value of Level is > 1. 


Table 12-19. Display Nature Dynamic Action 


Action Attribute Value 

Create Dynamic Action Name Display Nature 
Event Change 
Selection Type Item(s) 
Item P16_COALEVEL 
Condition greater than 
Value 1 


Table 12-20 lists the true action attributes. 
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Table 12-20. True Action Attributes 


Attribute Value 

Action Show 

Selection Type Item(s) 

Item(s) P16_NATURE_DISPLAY 
Fire On Page Load Yes 


Create a False action by selecting Create False Action. Set the attributes shown in 
Table 12-21 for the False action. 


Table 12-21. False Action Attributes 


Attribute Value 

Action Hide 

Selection Type Item(s) 

Item(s) P16_NATURE_DISPLAY 
Fire On Page Load Yes 


12.6 Modify Validations 


Using Table 12-22 modify the five page validations. 


Table 12-22. Modify Validations 


Check Level 

Attribute Value 

Type Item is NOT zero 

Item P16_COALEVEL 

Error Message You ve defined an invalid account code 

Check Parent Level 

Attribute Value 

PL/SQL Function Body Returning Book_Code\Chapter12\Check Parent Level.txt 
Boolean 

Error Message Parent level not found 


(continued) 
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Table 12-22. (continued) 


Check Child Level 
Attribute 


PL/SQL Function Body Returning 
Boolean 


Error Message 
Check in Transaction 
Attribute 


PL/SQL Function Body Returning 
Boolean 


Error Message 


Disallow Code Modification 
Attribute 


PL/SQL Function Body Returning 
Boolean 


Error Message 


Value 


Book_Code\Chapter12\Check Child Level.txt 


Child level found. Unable to delete account. 


Value 


Book_Code\Chapter12\Check in Transaction. 
txt 


Can’t delete. Account has been used in 
transaction. 


Value 


Book_Code\Chapter12\Disallow Code 
Modification.txt 


Account code cannot be modified 


12.7 Create Validation: Check Account Type 


Each transaction level account (for example, level 4) must be associated with one of the 
two specified types—Bank or Others. The validation created in Table 12-23 will prompt 
users to select one from the specified two types. 


Table 12-23. Validation: Check Account Type 


Action Attribute 


Create Name 
Validation Type 

Item 

Error Message 


When Button 
Pressed 


Condition Type 
Item 


Value 
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Value 


Check Account Type 

Item is NOT NULL 

P16_COATYPE 

Please select a Type for the new account 


Save 


Item = Value 
P16 COALEVEL 
4 
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12.8 Modify Processes 


Modify the two processes (Save Record and Delete Record) using the PL/SQL code 
provided in the Save Record.txt and Delete Record.txt files (in the Chapter12 folder), 
respectively. Also, replace the existing success and error messages with the appropriate 
text to reflect the current module. 


12.9 Create a Highlight Rule 


Save your progress and run the module from the Setup » Chart of Accounts menu. Using 
the Actions menu, create a highlight rule (Actions » Format » Highlight) to highlight the 
root level, as shown in Figure 12-1. Also, arrange the report columns using the Actions 
menu in the sequence illustrated in Figure 12-2 (later in the chapter). 


å Group 
10 
i es + 
1 Row v 

background Color SOE 75C å ; [yellow] [green] [blue] [orange] 
Text Color PFFFFFF ; yellow] [green] [blue] [orange] [red] 
FY J i AU 
Column Oper at of Expression 
Lye! st — al 1 x 


Figure 12-1. Highlight rule 


12.10 Test Your Work 


Click the Create button (on page 15) to add the accounts listed in Table 12-24. 

Figure 12-2 illustrates the two pages of this module. Note that the Level value will 
be generated automatically for each account. Similarly, the account nature will be 
inherited by subaccounts from the first level. Use the COA.x1s file—located in the 


Chapter12 folder—to create the complete chart of accounts. 
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Table 12-24. Accounts to Add 


Code Title Level Nature Type Cost Center 
l Capital 1 Capital N/A N/A 
101 Share Capital 2 Capital (Inherited N/A N/A 
& Reserve from parent) 
101001 Paid up Share 3 Capital (Inherited N/A N/A 
Capital from parent) 
10100100001 M.H. 4 Capital (Inherited Others 09001 
Thomson from parent) 


-nart of Accounts Setup Create Refresh D 





Code 1 Tithe level Nature Cost Center Type 





4 101 Share Capital & Reserve 


Capital 





10100100001 





M.H. Thomson 





A 101001 Paid up Share Capital © Capital 


Capital 09001 Others 






Lø 10100100002 AF. evens 4 Capital 09001 Others 
lø 101002 Reserves 3 
GA 10100200001 Multi Asset Funds 4 Co" em 
4 10100200002 Income Fund 4 The (MEL Themen 
å lø å 
pe 101003 Unappropnated Profit/Loss 3 
Hanen Capial 
4 10100300001 Unappropriated Profit/Loss 4 hontre (EEE 
ContCenter MON MA Pa 


Figure 12-2. Chart of accounts pages 
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12.11 Summary 


The chart of accounts setup is the most important segment; without it, you cannot post 
transactions in the application. It requires ample time to plan, design, and create the 
chart of accounts. Once you create it in this application, you can copy this master COA to 
other companies to save time. The next chapter will show you how to do that. 
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As mentioned earlier, the application has the capability of maintaining the accounts 
of multiple companies simultaneously. To complement this feature, the application 
contains a utility to allow you to copy the chart of accounts from one company to another. 
Obviously, this is a great time-saver when setting up a new company. Before you start 
development, make sure that the source COA has been created successfully before 
invoking this utility. The page for this module consists of two select lists. The first one 
allows you to specify the source company whose COA you want to copy from, while the 
second one allows you to select the target company you want to copy the source COA to. 


13.1 


Create Page 


This segment will be created manually using a blank page. After creating the blank page, 
you ll add some items and a button to it along with a corresponding process to save a 
COA for the target company. Create the page and page items as listed in Table 13-1. 


Table 13-1. Page Attributes 


Action 


Create Page 


Create Region 


© Riaz Ahmed 2016 


Attribute 


Page Number 
Name 

Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 
Entry 


Title 
Type 
Template 


Value 


54 

Copy COA 

Normal 

- don't use breadcrumbs on page - 


Identify an existing navigation 
menu entry for this page 


Utilities 
Copy Chart of Accounts 
Static Content 
Standard 
(continued) 
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Table 13-1. (continued) 
Action Attribute 
Create Page Item Name 
Type 
Label 
Region 
Template 
Value Required 
LOV Type 
Shared Component 
Create Page Item Name 
Type 
Label 
Region 
Template 
Value Required 
LOV Type 


Shared Component 


13.2 Add Button 


Add a button to the page using Table 13-2. This button will submit the page to run the 


Copy COA process, covered later in the chapter. 


Table 13-2. Button Attributes 


Action Attribute 
Create Button Button Name 
Label 
Region 


Button Position 
Hot 


Action 
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Value 


P54_SOURCE 

Popup LOV 

<b>Source Company:</b> 
Copy Chart of Accounts 
Required 

Yes 

Shared Component 
COMPANIES 

P54 TARGET 

Popup LOV 

<b>Target Company:</b> 
Copy Chart of Accounts 
Required 

Yes 

Shared Component 


COMPANIES 


Value 


Copy 
Copy 


Copy Chart of Accounts 


Copy 
Yes 


Submit Page 


13.3 Add Validations 


The three validations listed in Table 13-3 will ensure that the copy operation is possible. 


Table 13-3. Validation Attributes 


Action 


Create Validation 


Create Validation 


Create Validation 


Attribute 
Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


13.4 Copy COA Process 


The process listed in Table 13-4 will copy the source COA to the selected target company, 
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Value 


Select Different Companies 


PL/SQL Function (returning 
Error Text) 


Book_Code\Chapter13\Select 
Different Companies.txt 


Select different Source and 
Target companies 


Copy 
Check Source COA 


PL/SQL Function (returning 
Error Text) 


Book_Code\Chapter13\Check 
Source COA.txt 


Chart of Accounts for the source 
company doesn’t exist 


Copy 
Check Target COA 


PL/SQL Function (returning 
Error Text) 


Book_Code\Chapter13\Check 
Target COA.txt 


Chart of Accounts for the target 
company already exists 


Copy 


assuming, of course, the previous three validations were successful. 
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Table 13-4. Copy COA Process Attributes 


Action Attribute Value 

Create Process Name Copy COA 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter13\Copy COA.txt 
Point Processing 
Success Message Chart of Accounts copied successfully 
Error Message Could not copy chart of accounts 


When Button Pressed Copy 


13.5 Test Your Work 


Testing of this segment is simple. Invoke this module from the Copy Chart of Accounts 
option under the Utilities menu. You will see a small form illustrated in Figure 13-1. 
Select a company from the source LOV whose COA already exists in the database and 
then attempt to copy it to a company that does not have a COA. The selected company’s 
COA should be copied to the target company followed by the success message. Click the 
button again and see what happens. It should, of course, fail this time. 


Co py Chart of Accounts 





Source Company: "ABC & Company da 


Target Company: " MZA Company A 


Figure 13-1. Simple form 


13.6 Summary 


After creating the COA for both companies, now you are in a position to post financial 
transaction through vouchers, which is coming next. 
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This is the segment that you use to enter and record financial transactions. On the initial 
page of this segment, you select a voucher type, which you created in Chapter 5. The 
underneath report gets populated with all the vouchers related to the selected type. 
Clicking the Create button calls the voucher form page, where you create a new voucher 
for the selected type. The voucher form page contains two regions. The Enter Voucher 
region displays the selected voucher type and three text items to input the voucher 
number, date, and description. The number item can receive values up to ten digits, 
whereas the date should fall in the month being displayed at the top of the page. Add a 
description of up to 150 characters to describe the transaction. In the Transaction Details 
region, you enter transactions by selecting the affected accounts from the COA and cost 
centers, and you input the amount involved in the transaction either in the Debit or Credit 
column. The Reference column is used to save additional information, such as check or 
invoice numbers. Using the Add Row button, you can record any number of transactions 
in a single voucher. 


VOUCHER TABLES 


CREATE TABLE gl tran master 

(Tran No NUMBER, Cocode NUMBER CONSTRAINT fk tran masteri REFERENCES 

gl company (Cocode) NOT NULL, 

Coyear NUMBER(4) NOT NULL, comonthid NUMBER(2) NOT NULL, 

vchcode NUMBER CONSTRAINT fk tran master2 REFERENCES gl voucher(vchcode) 
NOT NULL, 

vchno NUMBER(10) NOT NULL, vchdate DATE NOT NULL, 

vchdescription VARCHAR2(150) NOT NULL, createdby VARCHAR2(10) NOT NULL, 
createdon DATE NOT NULL, 

vchverified VARCHAR2(1) NOT NULL, vchposted VARCHAR2(1) NOT NULL, closing 
NUMBER(1) NOT NULL, 

CONSTRAINT pk tran master PRIMARY KEY (tran no), 

CONSTRAINT fk tran master3 FOREIGN KEY (Cocode,Coyear,Comonthid) REFERENCES 
gl fiscal year) 
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CREATE TABLE gl tran detail 

(Line No NUMBER, Tran No NUMBER NOT NULL, 

Cocode NUMBER CONSTRAINT fk tran detaili REFERENCES GL Company (Cocode) 
NOT NULL, 

coacode VARCHAR2(11) NOT NULL, cccode VARCHAR2(5), vchdescription 
VARCHAR2(150) NOT NULL, 

vchdr NUMBER(15,2) NOT NULL, wchcr NUMBER(15,2) NOT NULL, vchreference 
VARCHAR2 (25) , 

reconciled NUMBER(1) NOT NULL, 

CONSTRAINT pk tran detail PRIMARY KEY (line no), CONSTRAINT fk tran detail3 
FOREIGN KEY (cocode,cccode) REFERENCES GL Cost Center, CONSTRAINT fk tran 
detail4 FOREIGN KEY (cocode,coacode) REFERENCES GL COA) 


ALTER TABLE gl tran detail ADD CONSTRAINT fk tran detail2 FOREIGN KEY 
(TRAN NO) REFERENCES gl tran master(TRAN NO) ON DELETE CASCADE ENABLE 


CREATE SEQUENCE gl tran master seq MINVALUE 1 START WITH 1 INCREMENT BY 1 
CACHE 20 
CREATE SEQUENCE gl tran detail seq MINVALUE 1 START WITH 1 INCREMENT BY 1 
CACHE 20 


CREATE OR REPLACE TRIGGER "tran detail get cost center" BEFORE INSERT OR 
UPDATE ON gl tran detail 
FOR EACH ROW 
DECLARE 
Veccode varchar2(5); 
BEGIN 
if snew.cccode is null then 
select cccode into Vcccode from GL_COA where cocode = :new.cocode and 
coacode = :new.coacode; 
snew.cccode := Vcccode; 
end if; 
END; 


ALTER TRIGGER "TRAN DETAIL GET COST CENTER" ENABLE 
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Transaction data will be saved in two tables: GL TRAN MASTER and GL_TRAN_DETALL. 
The master table contains header information for each voucher, while the details table 
carries transaction information. The two tables are linked together using a common key 
(TRAN_NO), following a one-to-many relationship in which a single voucher record in the 
master table can have multiple records in the details table. The tran detail get cost 
center trigger is used to populate default cost centers in the details table from the COA 
when no cost center is selected during voucher creation. 


14.1 Create List of Values 


Using Table 14-1, create two dynamic LOVs from scratch. You'll use the first LOV in the 
Transaction Details region to select financial accounts from the COA for each transaction. 
The second LOV will be used to fetch and create vouchers for the selected type. 


Table 14-1. Dynamic LOVs 
LOV Query 


COA Entry Level SELECT coacode||'-'|coatitle d, coacode r FROM gl coa 
WHERE coalevel=4 and cocode=(select cocode from gl users 
where userid =:APP USER) 
ORDER BY coacode 


Voucher Types SELECT vchtype d, vchcode r 
FROM gl voucher 
ORDER BY vchtype 


14.2 Create Pages 


This segment will also comprise two pages, but here you will use the Form > Master 
Detail Form option. The master page (42) will show header information from the 
master table, while the detail page (43) will have two regions: Enter Voucher and 
Transaction Details. The Enter Voucher region will receive header information, 
whereas the second region will be used to enter details of each transaction. Create the 
two pages using Table 14-2. 
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Table 14-2. Page Attributes 


Page Type 


Master 
Page 


Detail 
Page 
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Attribute 


Table Owner 

Table Name 

Columns 

Primary Key Type 

Primary Key Column 1 
Primary Key Source 

Sequence 

Include master row navigation 
Include master report 


Build Master Detail with 


Master Page Number 
Page Title 

Region Title 

Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu Entry 
Table Owner 

Table Name 

Columns 

Primary Key Type 
Primary Key Column 1 
Primary Key Source 
Sequence 

Detail Page Number 
Page Title 

Master Region Title 


Detail Region Title 


Value 


Accept the displayed value 
GL_TRAN_MASTER 

Select all columns 

Select Primary Key Column(s) 
TRAN_NO 

Existing Sequence 
GL_TRAN_MASTER_SEQ 

Yes (default) 

Yes (default) 


Edit detail as tabular form on 
same page 


42 
Vouchers 
Vouchers 
Normal 


- do not add breadcrumb region 
to page - 


Identify an existing navigation 
menu entry for this page 


Transactions 

Accept the displayed value 
GL_TRAN_DETAIL 

Select all columns 

Select Primary Key Column(s) 
LINE_NO 

Existing Sequence 
GL_TRAN_DETAIL_SEQ 
43 

Voucher Details 

Enter Voucher 


Transaction Details 
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14.3 Modify the Master Page (Page 42) 


Click the Classic Report region called Vouchers and execute the following steps: 


1. 


Replace the existing SQL query with the one that follows. 
When you select a voucher type from the select list (created in 
the next section), the report is refreshed using the conditions 
specified in the WHERE clause and displays vouchers related to 


the selected company, year, month, 


SELECT 

"GL_TRAN MASTER". 
"GL TRAN MASTER". 
"GL TRAN MASTER". 
"GL TRAN MASTER". 
"COMONTHID", 

"GL TRAN MASTER". 
"GL TRAN MASTER". 
"GL TRAN MASTER". 
"GL TRAN MASTER". 
"VCHDESCRIPTION", 
"GL TRAN MASTER". 
"CREATEDBY", 

"GL TRAN MASTER". 
"CREATEDON", 

"GL TRAN MASTER". 
"VCHVERIFIED", 
"GL TRAN MASTER". 
"VCHPOSTED", 

"GL TRAN MASTER". 


FROM "GL TRAN MASTER" 


and type. 


"TRAN NO" "TRAN NO", 
"COCODE" "COCODE", 
"COYEAR" "COYEAR", 
"COMONTHID' 
"VCHCODE" "VCHCODE", 
"VCHNO" "VCHNO", 
"VCHDATE" "VCHDATE", 
“VCHDESCRIPTION" 
“CREATEDBY" 
"CREATEDON" 
“VCHVERIFIED" 
“VCHPOSTED" 


"CLOSING" "CLOSING" 


WHERE (("GL TRAN MASTER"."COCODE" = :P42 COCODE and 
"GL TRAN MASTER". "COYEAR" = :P42 COYEAR and 
"GL TRAN MASTER". "COMONTHID" 
= :P42 COMONTHID and "GL TRAN 
MASTER". "VCHCODE" = :P42 VCHCODE)) 


Expand the Columns node under the Vouchers region. Using 
drag and drop to arrange the report columns in this order: 
TRAN_NO, VCHVERIFIED, VCHPOSTED, VCHNO, VCHDATE, and 
VCHDESCRIPTION. Also, set the appropriate column headings 


(shown later in the chapter). 


Set the Default Sequence attribute for the VCHNO column to 1 
and set Direction to Ascending to sort the report on this column. 


Set the Type attribute to Hidden Column for the COCODE, 
COYEAR, COMONTHID, VCHCODE, CREATEDBY, 
CREATEDON, and CLOSING columns. 
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14.4 Add Items (Page 42) 


Using Table 14-3, create three hidden items on the master page to hold the company 
code, year, and month ID values. You fetch values for these items through individual 
SELECT statements. These values are forwarded through the Create button to the details 
page (page 43) to record vouchers in the proper company and period. The Select List item 
(P42_VCHCODE, listed last in Table 14-3) is added to display all voucher types. When you 
switch voucher types, the page is submitted to fetch vouchers related to the selected type. 


Table 14-3. Hidden Item Attributes 


Action Attribute Value 
Create Page Item Name P42 COCODE 
Type Hidden 
Value Protected Yes (default) 
Region Vouchers 
Source Type SQL Query (return single value) 
SQL Query SELECT cocode FROM gl users 
WHERE userid = :app_user 
Source Used Always, replacing any existing value in 
session state 
Create Page Item Name P42 COYEAR 
Type Hidden 
Value Protected Yes (default) 
Region Vouchers 
Source Type SQL Query (return single value) 
SQL Query SELECT coyear FROM gl_users 
WHERE userid = :app_user 
Source Used Always, replacing any existing value in 
session state 
Create Page Item Name P42 COMONTHID 
Type Hidden 
Value Protected Yes (default) 
Region Vouchers 
Source Type SQL Query (return single value) 
SQL Query SELECT comonthid FROM gl users 
WHERE userid = :app user 
Source Used Always, replacing any existing value in 
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Table 14-3. (continued) 


Action Attribute Value 

Create Page Item Name P42_VCHCODE 
Type Select List 
Label <b>Select Voucher Type:</b> 
Page Action on Submit Page (page is refreshed with 
Selection vouchers of the selected type) 
Region Vouchers 


Label Column Span 2 
LOV Type Shared Component 
List of Values VOUCHER TYPES 


14.5 Modify Button (Page 42) 


Modify the Create button on the master page. Set the Button Position attribute to Copy. In 
the Behavior section, click the Target attribute link. In the Link Builder dialog box, set the 
items as illustrated in Figure 14-1. Upon page submission, item values on the master page 
(preceded with the & symbol and terminated with a full stop) will be forwarded to the 
corresponding items on page 43 (specified under the Set Items column). 


P43_COCODE &P42_ COCODE 

P43 COYEAR $P42 COYEAR 

P43 COMONTHID $P42 COMONTHID 
P43 VCHCODE $P42 VCHCODE 


Figure 14-1. Link Builder dialog box 


14.6 Modify the Detail Page (Page 43) 


Execute the following set of steps to modify the details page: 


1. Click the Transaction Details (Tabular Form) region and 
remove the default condition by setting Condition Type 
to - Select -. This tabular form was displayed only when 
P43 TRAN NO carried some value. With this amendment, the 
form will always be visible. 
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2. Inthe Enter Voucher region, mark all items as Hidden 
except VCHNO, VCHDATE, and VCHDESCRIPTION. Add 
appropriate labels (Number, Date, and Description) to the 
three visible items. Also, set Template to Required, and set 
Value Required to Yes for these three items. These three items 
will accept voucher header information manually from users. 
All other items will have autogenerated values, as configured 
in the next couple of steps. 


3. Set Default Type to PL/SQL Expression and PL/SQL 
Expression to V('APP_USER’) for P43_CREATEDBY. 


4. Set Default Type to PL/SQL Expression and PL/SQL 
Expression to SYSDATE for P43_CREATEDON. 


5. Set Default Type to Static Value and Static Value to N, N, 
and 0 for P43_VCHVERIFIED, P43 VCHPOSTED, and P43_ 
CLOSING, respectively. 


6. Change the Type attribute of P43 VCHDESCRIPTION from 
Text Field to Textarea. Also, set Label Column Span to 2, Width 
to 130, Height to 2, and Maximum Length to 150. 


7. Inthe Transaction Details region, set the Type attribute 
to Hidden Column (saves state) for the COCODE and 
RECONCILED page items. 


8. Set the Compute Sum attribute to Yes for the VCHDR and 
VCHCR columns to display the total of these columns on the 
bottom. 


9. Click the LINE NO column. Set its Default Sequence to 1 and 
Direction to Ascending to sort the transactions in the tabular 
form on this column. 


10. Modify the COCODE column. In the Default section, set its 
Type to Item and enter P43_COCODE in the Item attribute. 
Note that the database table GL TRAN DETAIL has a column 
labeled COCODE, which is added to the table to implement a 
constraint. This column will default to the value held in P43 __ 
COCODE, which was evaluated and forwarded by the master 
page in the previous section. 


11. Modify the COACODE column. Switch its Type property from 
Text Field to Popup LOV (shows displays value). Set LOV Type 
to Shared Component, select COA ENTRY LEVEL for the list 
of values, and Width to 35. These changes will present the 
column as a Popup LOV, from where you can pick an account 
from the chart of accounts. 
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Modify the CCCODE column. Switch its Type property from 
Text Field to Popup LOV (shows displays value). Set LOV Type 
to Shared Component, select COST CENTERS for the list of 
values, and set Width to 12. 


Modify the columns VCHDR, VCHCR, and RECONCILED. 

In the Default section, set the Type attribute to PL/SQL 
Expression and enter 0 in the PL/SQL Expression box. These 
settings will show zero as the default value in the former 

two columns. The zero value is stored in the RECONCILED 
column to mark every transaction initially as unreconciled. 
After reconciling a transaction with the bank (in Chapter 21), 
these default values will be replaced with 1. 


Click the Attribute node (under Transaction Details) and set 
Number of Rows to 500 to display the number of entries on 
a single page. Scroll down toward the bottom. In the Break 
Formatting section, enter Total in the Report Sum Label 
attribute. At runtime, this will display the text (Total) at the 
bottom alongside the summed-up debit and credit figures. 


Add/Modify Items 


Using Table 14-4, add a Display Only item under the Enter Vouchers region on page 43. 
It is added to display the selected voucher type. This item is to be placed between the 
VCHCODE and VCHNO items. You assess the voucher type using the value held in the 
page item P43_VCHCODE, which was forwarded across; see Figure 14-1. 


Table 14-4. Display Only Item Attributes 


Action Attribute Value 

Create Page Item Name P43_VCHTYPE 

Hen Type Display Only 
Label <b>Voucher Type:</b> 
Sequence 55 (to place it properly after the vchcode item) 
Region Enter Voucher 


Label Column Span 2 
Source Type SQL Query (return single value) 


SQL Query SELECT vchtype FROM gl voucher WHERE 
vchcode=:P43_VCHCODE 


Source Used Always, replacing any existing value in 
session state 
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The attributes specified in Table 14-5 are set to align the P43_VCHNO and P43_ 
VCHDATE items horizontally with the Voucher Type item. 


Table 14-5. Alignment Attributes 
Action Attribute 


Modify Item Item Name 


Start New Row 


Label Column Span 


Template 
Width 
Value Required 


Maximum Length 


Condition Type 


Modify Item Item Name 


Start New Row 


Label Column Span 


Width 


Maximum Length 


Value 


P43 VCHNO 
No 

2 

Required 

10 

Yes 

10 


- Select - (in other words, no condition set 
for this item) 


P43 VCHDATE 

No 

2 

11 (to hold 01-AUG-2015 format) 
11 


14.8 Modify Validations on Page 43 


Using Table 14-6, modify the ten default validations. Currently, these validations do not 
respond to the CREATE button when you create a new voucher. 


Table 14-6. Validation Modifications 
Attribute Value 


PL/SQL Expression :request in (‘SAVE, ‘CREATE’ ) 


Validations 


COCODE not null 

COCODE must be numeric 
COACODE not null 
VCHDESCRIPTION not null 
VCHDR not null 

VCHDR must be numeric 
VCHCR not null 

VCHCR must be numeric 
RECONCILED not null 
RECONCILED must be numeric 
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or :request like ‘GET_PREV%’ 
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14.9 Add Validations to Page 43 


Using Tables 14-7 to 14-10, add four validations to page 43. The first validation 
(mentioned in Table 14-7) checks for the existence of a voucher number and the presence 
of a valid voucher date. You cannot use the same number of the same type in the same 
company, year, and month. Suppose, for example, you are connected to the ABC & 
Company with January 2015 as your working period. If you try to create JV 1, which 
already exists in the database, then the system will prevent you from using the same 
number for the same voucher type. Of course, you can create this number in another 
period for the same type. The validation also keeps track of invalid dates. For instance, 
you cannot create vouchers related to February in the month of January. If this is 
required, then you need to change your working period. The validation will fire when you 
click any of the four buttons (Apply Changes, Create, Next, or Previous). 


Table 14-7. Validation to Check Voucher Number and Date 


Action Attribute Value 

Create Name Check Voucher Number and Date 

Validation Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter14\Check Number Date.txt 
Error Message Invalid voucher number and/or date 
Condition Type PL/SQL Expression 
PL/SQL Expression request in (‘'SAVE’,'CREATE’) or :request Like 


'GET NEXT%' or :request Like 'GET PREV%' 


The validation in Table 14-8 loops through the tabular form (Transaction Details) 
region to check for the existence of records. From the basic principles of double entry 
accounting, you must have at least two records in this section: one debit and another for 
credit. 


Table 14-8. Validation to Check Voucher Details 


Action Attribute Value 
Create Name Check Voucher Details 
Validation Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter14\Check Voucher 
Details.txt 
Error Message Enter data in the details section 
Condition Type PL/SQL Expression 
PL/SQL Expression request in ('SAVE','CREATE') or :request Like 


'GET NEXT%' or :request Like 'GET PREV%' 
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A transaction is said to be invalid if you input either zero or different values in the 
debit or credit columns or if you forget to enter a value into either of them. The next 


validation, shown in Table 14-9, is added to prevent these errors. 


Table 14-9. Validation to Check Debit/Credit Columns 


Action Attribute Value 

Create Name Check Debit/Credit 

Validation Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book CodeVChapterl4VCheck Debit Credit.txt 
Error Message Enter positive amount either in Debit or Credit 
Condition Type PL/SQL Expression 
PL/SQL Expression :request in ("(SAVE',/CREATF!) or :request Like 


'GET NEXT%' or :request Like 'GET PREV%' 


For a voucher to be valid, it must be balanced; in other words, there should be no 
difference between debit and credit amounts. The validation in Table 14-10 will check 
this situation and inform you, by showing you the difference, of any balance discrepancy. 


Table 14-10. Validation to Check Voucher Balancing 


Action Attribute Value 

Create Name Voucher Balancing 

Validation Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter14\Voucher Balancing.txt 
Error Message Voucher is not balanced 
Condition Type PL/SQL Expression 


PL/SQL Expression :request in ('SAVE','CREATE’) or :request Like 
'GET_NEXT%' or :request Like 'GET_PREV%' 


14.10 Modify Process 


Using Table 14-11, amend the following default processes. The first one is amended to 
assign the primary key (populated from sequences) to the page item P43_TRAN_NO. This 
is used in the next section to populate the TRAN NO column in the Transaction Details 
tabular form. Without this modification, the values defined in the Transaction Details 
pane will not be propagated to the transaction details table. The second amendment is 
made to display vouchers related to the selected criteria. In the absence of this clause, 

all vouchers can be navigated through using the Next and Previous buttons, irrespective 
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of company, year, month, and voucher type. The first two processes (Process Row of 
GL_TRAN_MASTER and ApplyMRU) are located on the Processing tab, while the last 
one (Get Next or Previous Primary Key Value) is located under the Pre-Rendering section 
in the Rendering tab. The PL/SQL Expression for the ApplyMRU process is modified 

to execute the process when either the Save or Create button is pressed. By default, the 
process applies to only the modified records. 


Table 14-11. Process Modifications 


Process Attribute Value 

Process Row of GL_ Return Key Into tem P43_TRAN_NO 

TRAN MASTER 

ApplyMRU PL/SQL Expression :request in ('SAVE','CREATE') or 


:request like 'GET NEXT%' or :request 
like 'GET PREV%' 


Get Next or Previous Navigation Order TRAN NO 

Primary Key Value Column 
Runtime Where COCODE=:P43 COCODE and 
Clause COYEAR=:P43 COYEAR and 


COMONTHID=:P43 COMONTHID 
and VCHCODE=:P43 VCHCODE 


14.11 Create Process 


Using Table 14-12, add a process between Process Row process of GL TRAN MASTER and 
ApplyMRU. This process will add the value of the P43 TRAN NO item into the third tabular 
form column. 


Table 14-12. Process to Populate TRAN NO Column 


Action Attribute Value 
Create Name Populate TRAN NO in Transaction Details 
Process Type PL/SQL Code 


PL/SQL Code FORi IN 1.. apex application.g f02.COUNT LOOP 
apex application.g f03(i) := :P43 TRAN NO; 


END LOOP; 

Sequence 15 (between Process Row of GL TRAN MASTER and 
ApplyMRU) 

Point Processing 
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14.12 Control Buttons 


As per general accounting standards, verified vouchers (Chapter 16) and system- 
generated closing vouchers (Chapter 29) must not be modified or deleted. Using 

Table 14-13, amend the default conditions specified for the buttons on page 43 to prevent 
these actions. 


Table 14-13. Button Modifications 


Action Attribute Value 
Modify Button Names DELETE, SAVE and APPLY_CHANGES_MRD 
Buttons Condition Type PL/SQL Function Body 

PL/SQL Function Body Book_Code\Chapter14\Control Buttons.txt 
Modify Button Name GET PREVIOUS TRAN NO and GET NEXT. 
Buttons TRAN NO 

Condition Type PL/SQL Function Body 


PL/SQL Function Body Book_Code\Chapter14\Control Navigation 
Buttons.txt 


14.13 Test Your Work 


This exercise assumes you have completed all the previous chapters fully and have 
sufficient sample data entered. For instance, selecting a voucher type is mandatory; 
therefore, you must have created at least one. Similarly, you must also have created a 
company, year, and month and created a COA. Once you have all these segments in 
place, follow the next steps to create your first voucher. This is a payment voucher to pay 
a creditor (A.B. Enterprises) through a bank (ABN Amro), against their invoice number 
78345. 


1. Select Transactions from the main menu. 


2. Select a voucher type on the master page (in my case, it is 
BPV-Bank Payment Voucher). Click the Create button. The 
selected voucher type will be displayed as a read-only item on 
the details page. 


3. Enter I for the voucher number. 


4. Select a date from the date picker. The date should fall within 
the period appearing on the top of this page. 


5. Type Paid to A.B. Enterprises against invoice # 78345 in the 
Description box. 


6. After entering voucher master information, click the Add Row 
button to enter the transaction details. 
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7. Click the LOV button in the Account Code column, and select 
A.B. Enterprises from the pop-up list. 


8. Now copy and paste the description from the main 
Description box (entered in step 5) into the current row’s 
Description column. 


9. Enter 3000 in the Debit column. 
10. Enter Inv $ 78345 in the Reference column. 
11. Add one more row using the Add Row button. 


12. Select a bank account, such as ABN Amro Bank - 
30200300001. 


13. Paste the same description again for this row. 


14. Enter 3000 in the Credit column. Figure 14-2 shows the 
completed voucher. 


15. Click the Create button to save this voucher. 


—& List of Existing Vouchers 
Eat Vellled Posted Wembe Mamber hl Date Description 


New Voucher Form 
* H H i HALNI — Peed te AR beterpeisen vide ante © TEES 





© Master Region 





Weucher Type: DPY Voucher Humber; * 1 Dee” ta E 


Dirie price: z Paid to 4.6. Enterprises vide freoice å TEMS 


a. Details Rezion 





a Ace Cake Lov Comber Description Beta freda Reterence 
C] HLIMGIL AG. [rtenpeiet a HIHA Ai Ped to AB Dnterpeies våt mosia © Hai å PRE 
a HE STL AEN Arri Bard A BROA a Peed ba AG. Ginterperias våt ssia E | HA 
Tatal 00 oo 
t > 


Delete Checked Badd Patron 


Figure 14-2. Complete voucher 
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14.14 Summary 


There are many other things covered in this chapter that need some testing on your 
part. Revisit these sections and give this segment a thorough test-run by trying 
different things, especially those related to the four validations. Once you have 
thoroughly tested the application by entering different types of transactions in 
different fiscal periods, move on to the next chapter where you will create a form to 
search the transactions you entered here. 
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The Transaction Search utility helps you locate transactions in a matter of seconds. 
There are numerous occasions when an accountant needs to search for a specific 
financial activity entered into a ledger. For example, the accountant may want to 
know the details of a payment made against invoice number 78345. In this chapter, 
you will create a search utility to locate a transaction. To search for transactions, 

a criteria list is provided along with a search box. You select a value from the 
criteria list (for example, Reference), then enter a value in the Search box 

(for example, 78345), and finally hit the Search button. The utility searches for 

the provided value in the selected column and displays the matching records in 

an interactive report. 


15.1 Create Page and Parameters Region 


This segment will again be created manually using a blank page, followed by the addition 
of some page components. It will be invoked from the Utilities menu. Create the page and 
its components using Table 15-1. 


Table 15-1. Page and Component Attributes 


Action Attribute Value 
Create Blank Page Number 53 
Page Name Search Transaction 
Page Mode Normal 
Breadcrumb - do not use breadcrumbs on page - 
Navigation Preference Identify an existing navigation menu 
entry for this page 
Existing Navigation Menu Entry Utilities 
(continued) 
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Table 15-1. (continued) 


Action 


Create 
Region 


Create 
Button 


Create Page 
Item 
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Attribute 

Title 

Type 

Template 
Button Name 
Label 

Region 

Button Position 
Hot 

Action 

Name 

Type 

Label 

Region 

Label Column Span 
Template 
Value Required 
LOV Type 


Static Values 

(Make sure that there are no 
spaces before or after the 
semicolon character.) 


Value 


Search Parameters 
Static Content 
Standard 

Search 

Search 

Search Parameters 
Copy 

Yes 

Submit Page 
P53_CRITERION 
Select List 
<b>Criterion:</b> 
Search Parameters 
2 

Required 

Yes 

Static Values 


STATIC:Voucher Number;TM. 
VCHNO, 

Account Code;TD.COACODE, 
Account Title; COA.COATITLE, 
Debit; TD VCHDR, 

Credit; DVCHCR, 

Master Description; TM. 
VCHDESCRIPTION, 

Detail Description; TD. 
VCHDESCRIPTION, 
Reference; TD:VCHREFERENCE 


(continued) 
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Table 15-1. (continued) 


Action Attribute Value 
Create Page Name P53_SEARCH 
Item Type Text Field 
Label <b>Search:</b> 
Region Search Parameters 
Start New Row No 
Label Column Span 2 
Template Required 
Width 100 
Value Required Yes 


The LOV defined in the select list (P53_CRITERION) has eight options. Each 
option comprises two values: a display value and a return value. The value placed in 
the display position is shown to users. When the user selects a value, the return value 
is what actually gets returned to the program. For example, when the user selects a 
voucher number from the list, the program will receive a return value of TM VCHNO, 
which is the voucher number from the transaction master table. This value is then 
used in the WHERE clause of the SQL statement covered in the next section to fetch the 
required records. 


15.2 Create an Interactive Report Region 


The interactive report region created in Table 15-2 will show all the searched records 
beneath the parameters region. It is based on a SELECT query that joins multiple tables to 
provide complete information. The WHERE clause in this statement uses the value returned 
by the criterion select list via the DECODE function. Note that COATITLE, VCHDESCRIPTION, 
and VCHREFERENCE are character columns, so values in these columns are searched using 
the LIKE operator. 
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Table 15-2. Interactive Report Region 


Action 


Create 
Region 
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Attribute Value 


Title Search Result 


Type Interactive Report 
SQL Query SELECT TM.TRAN NO, TMVCHDATE, VCHVCHTYPE, 


TM.VCHNO, TD.COACODE, COA.COATITLE, 
TM.VCHDESCRIPTION MD, 

TD.VCHDESCRIPTION DD, TD.VCHDR, TD.VCHCR, 
TDVCHREFERENCE 


FROM GL COA COA, GL VOUCHER VCH, 


GL TRAN MASTER TM, GL TRAN DETAIL TD 


WHERE TM.COCODE=TD.COCODE AND TM.COCODE= 


COA.COCODE AND 

TM.TRAN NO=TD.TRAN NO AND 

TMVCHCODE=VCHVCHCODE AND TD.COACODE= 

COA.COACODE AND 

TM.COCODE-(select cocode from gl users 

where userid=:APP USER) 
AND 
( 
decode(:P53_CRITERION,'TD.COACODE',TD. 
COACODE)=:P53 SEARCH 

OR decode(:P53_CRITERION,'COA.COATITLE' upper 
(COA.COATITLE)) 
Like upper(:P53_SEARCH) 

OR decode(:P53_CRITERION,'TD-VCHCR' TD. 
VCHCR)=:P53_ SEARCH 

OR decode(:P53_CRITERION,'TD-VCHDR' TD. 
VCHDR)=:P53_SEARCH 

OR decode(:P53 CRITERION, TD. 
VCHDESCRIPTION' ,upper(TD. 
VCHDESCRIPTION)) 
Like upper(:P53_SEARCH) 

OR decode(:P53 CRITERION,'TMVCHDESCRIPTION, 
upper(TMVCHDESCRIPTION)) 
Like upper(:P53 SEARCH) 

OR decode(:P53 CRITERION,'TD.VCHREFERENCE, 
upper(TDVCHREFERENCE)) 
Like upper(:P53 SEARCH) 

OR decode(:P53 CRITERION, TMVCHNO"'TM. 
VCHNO)=:P53 SEARCH 


) 


ORDER BY TMVCHDATE 


Template Standard 
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Add meaningful column headings (as shown later in the chapter in Figure 15-1) to 
the report by expanding the Columns node under the Search Result interactive report. 


15.3 Adda Dynamic Action 


Using Tables 15-3 and 15-4, add a dynamic action to enable a wildcard character (%) to 
be used to allow the searching of values in character columns. The true action fires when 
you select a criterion from the list. The dynamic action then places the text %put search 
string between these symbols% into the search box (P53_SEARCH) to inform users that the 
character search should be added in between the two percent signs. The false action (in 
other words, when a numeric criterion is selected) makes the search box empty. The two 
parameter values (criterion and searched value) are then used in the WHERE clause (in the 


previous section) to filter records in the SELECT statement. 


Table 15-3. Dynamic Action For Static Assignment 


Action Attribute Value 
Create Dynamic Name Put Percent Sign 
Acton Event Change 
Selection Type Item(s) 
Item(s) P53_CRITERION 
Condition in list 
Value COA.COATITLE, 
TM.VCHDESCRIPTION, 
TDVCHDESCRIPTION, 
TDVCHREFERENCE 
Action (under Show) Set Value 
Set Type Static Assignment 
Value %put search string between these 
symbols% 
Item (Under Affected P53_SEARCH 
Elements) 


Right-click the False node, and select Create False Action. Set the attributes in 


Table 15-4 for the False action. 
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Table 15-4. False Action Attributes 


Attribute Value 

Action Set Value 

Set Type Static Assignment 
Value Leave Blank 
Selection Type Item(s) 

Item(s) P53_SEARCH 


15.4 Test Your Work 


Invoke this page from the Utilities menu’s Search Transaction option, and execute the 
following steps to search a transaction that you recorded in the previous chapter: 


1. Select Reference from the Criterion list. The search box will 
prompt you to enter a value within % symbols. Do so by 
entering 78345 between these symbols and hit the Search 
button. You'll get the voucher information you entered in the 
previous chapter, as illustrated in Figure 15-1. 


2. Switch criterion to Debit. Enter 3000 in the Search box, and 
click the Search button. Once again, the same record appears 
on your screen, but this time it is fetched using numeric 


parameters. 
Criterion * Reference + —® Searched Parameters @—— Search 7 Sput remih string between there pmboltig 





Date Type Mum ber Account Tithe Biter Description Detail Description Debit redii Relerence 


H-JUL-M1 BPA 1 PHL bb 100081 AB. Enterprier Pood to AB, Enterprises Peed to AB. Enterprises 5 6 bey © PRES 


Figure 15-1. Search results 


15.5 Summary 


Once your data piles up in the database, the Search Transaction utility helps you dig out 
a financial event from the data mine. In the next chapter, you will create a segment that 
protects data from manipulation. 
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The Vouchers Verification segment serves two purposes. First, it allows authorized staff 
to check the accuracy of business transactions, and second, it prevents verified vouchers 
from being modified or deleted. Its main interface provides a Parameters region, where 
you enter a range of dates and specify whether you want to see Unverified or Verified 
vouchers. The date parameters receive voucher creation dates (not the voucher date). 
The lower region of the page displays a list of vouchers based on the selected criteria. 
Each voucher’s detail record starts with a link column, which calls another page where 
an authorized person can see a complete voucher with all its details. The page carries 
appropriate buttons to verify/unverify the voucher being shown. 


16.1 


Table 16-1. Page Attributes and Parameters Region 


Action 


Create Blank Page 


Create Region 


© Riaz Ahmed 2016 


Attribute 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu 
Entry 


Title 
Type 
Template 


Create Page and Parameters Region 


Create a blank page and configure it using Table 16-1. 


Value 


94 
Vouchers Verification 
Normal 


- do not use breadcrumbs on 
page - 

Identify an existing navigation 
menu entry for this page 


Closing 


Parameters 
Static Content 
Standard 


(continued) 
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Table 16-1. (continued) 
Action 


Create Page Item 


Create Page Item 


Create Page Item 
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Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Source Type 

Item Source Value 
Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Source Type 

Item Source Value 
Name 

Type 

Label 

Number of Columns 
Region 

Label Column Span 
LOV Type 

Static Values 
Display Null Value 
Default Type 

Static Value 


Value 


P94 FROM 

Date Picker 
<b>From</b> 
Parameters 

2 

Required 

Yes 

PL/SQL Expression 
SYSDATE 

P94 TO 

Date Picker 
<b>To</b> 
Parameters 

2 

Required 

Yes 

PL/SQL Expression 
SYSDATE 

P94 CRITERION 
Radio Group 
<b>Select:</b> 

2 

Parameters 

2 


Static Values 


STATIC:Unverified; N Verified; Y 


No 
Static Value 
N 
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Table 16-1. (continued) 


Action Attribute Value 
Create Button Button Name Get 
Label Get 
Region Parameters 
Button Position Copy 
Hot Yes 
Action Submit Page 


The two date picker items are added to the page where users will specify a range of 
voucher creation dates. The purpose of using the Created On date column is to make it 
easier for the verifying person to call all vouchers entered on a specific date, irrespective 
of the financial period . For example, if the authorized person verifies all vouchers on 
daily basis, then that person will need to view a list of all vouchers created today. The 
radio group item is added to filter vouchers according to the selected criterion: Unverified 
or Verified. Once a voucher is marked as verified, it vanishes from the Unverified list and 
can be seen only by selecting the Verified option. 


16.2 Create Interactive Report Region 


The interactive report region in Table 16-2 is based on a SELECT statement. The region 
refreshes when a user clicks the Get button after choosing one option from the radio group. 
Note that this report is based on the CREATEDON column, which means that the user will 
have to put a voucher creation date, not the voucher date itself, in the two date boxes. For 
example, a voucher dated 01-JAN-2015 is created on January 2, 2015, and can be viewed 

in this report only when you enter 02-JAN-2015 in the date boxes. The Closing column 

in the transaction master table is a tag that is used by the application to identify year-end 
vouchers. A value of 1 in this column signifies that the voucher is a system-generated 
closing voucher and is not user-modifiable. See Chapter 29 for more on closing vouchers. 


Table 16-2. Interactive Report Region Attributes 


Action Attribute Value 
Create Region Title Vouchers Verification 
Type Interactive Report 


SQL Query SELECT * FROM gl tran master 
WHERE cocode=(select cocode from gl users where 
Userid = :APP USER) AND 
createdon between :P94 FROM AND :P94 
TO AND 
vchverified=:P94 CRITERION AND closing=0 
ORDER BY vchdate 


Template Standard 
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After creating the region, amend the interactive report region as follows: 


l: 


Table 16-3. 
Action 


Modify 
Column 
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Hide all columns except VCHNO, VCHDATE, 
VCHDESCRIPTION, CREATEDBY, and CREATEDON. Also 
add the appropriate headings to these visible columns, as 
shown in Figure 16-1 later in the chapter. 


Create a link in the TRAN_NO column. This link will open 
page 95 to display the selected voucher, where you can mark 
it as verified and can even reverse it. The Set Items section 

is populated with some key values that are passed to the 
verification page for further processing. Recall that for page 42 
(Vouchers), you created three hidden items (P42_COCODE, 
P42 COYEAR, and P42 COMONTHID) and stored the 
appropriate values in these items through SQL statements for 
this purpose. You didn't do this for page 94 because in page 42 
hidden items were created to add conditions to the wizard- 
generated report query. Here, you do not need these items 

as you have already placed filters in the WHERE clause of the 
interactive report's SQL query. The items (P95 COCODE, 

P95 COYEAR, P95 COMONTHID, and P95 VCHCODE) on 
page 95 (coming up next) are populated with values from the 
interactive report items: &P94_COCODE., &P94 COYEAR.,, 
&P94 COMONTHID., and &P94 VCHCODE. Set the 
attributes mentioned in Table 16-3 to create the link. 


Link Attributes 

Attribute Value 

Column Name TRAN NO 

Type Link 

Heading Call 

Column Alignment Center 

Target Type = Page In This Application 
Page = 95 
Set Items 
Name Value 
P95 TRAN NO HTRAN NO 
P95 COCODE &P94 COCODE. 
P95 COYEAR &P94 COYEAR. 
P95 COMONTHID &P94 COMONTHID. 
P95 VCHCODE &P94 VCHCODE. 


Clear Cache = 95 


Link Text <img src="#IMAGE_PREFIX#magnifying glass 
white bg.gif" alt=""> 
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16.3 Create Verification Page 


The main vouchers verification page will be created from the Voucher Details page you 


| 
io ii 


created in Chapter 14. Edit page 43, click the Create menu ` ~ „and select the option 
Page as Copy. Follow the wizard and set the attributes listed in Table 16-4. 


Table 16-4. Verification Page Attributes 


Attribute Value 

Create a page as a copy of Page in this application 

Copy from Page 43. Voucher Details 

Copy to New Page Number 95 

New Page Name Vouchers Verification Page 

Breadcrumb - do not use breadcrumbs on page - 

New Names Page Accept all the default new values 

Navigation Preference Identify an existing navigation menu entry for this 
page 

Existing Navigation Menu Entry Closing 


A copy of the voucher details page is created with a new ID (95). The new page will 
function just like the one it is copied from. Let’s modify it to restrict some of its functions 
and add some new components so that it can perform the intended task of verification. 


16.4 Modify, Delete, and Create Page Buttons 


The first amendment mentioned in Table 16-5 is being made on page 95 to handle the 
application flow when the Cancel button is clicked. When clicked, this button will turn 
the flow back to page 94 instead of 42. 


Table 16-5. Cancel Button Attributes 


Action Attribute Value 
Modify Button Button Name CANCEL 
Target Page 94 


Delete the five buttons mentioned in Table 16-6 because they are no longer 
applicable to this segment. 
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Table 16-6. Button Deletions 
Action Attribute Value 


Delete Buttons Button Name DELETE, SAVE, CREATE, APPLY_CHANGES_ 
MRD, APPLY_CHANGES_ADD 


Now add two new buttons, as listed in Table 16-7. The first button will be displayed 
for vouchers that are yet to be verified (P95_VCHVERIFIED=N), while the second one will 


appear for those vouchers that are already marked as verified. 


Table 16-7. New Buttons Attributes 


Action Attribute  ValueButton1 Value Button2 > 
Create Buttons Button Name Verify Unverify 

Label Verify Unverify 

Region Enter Voucher Enter Voucher 

Button Position Copy Copy 

Hot Yes Yes 

Action Submit Page Submit Page 

Condition Type Item = Value Item = Value 

Item P95 VCHVERIFIED P95_VCHVERIFIED 


Value N Y 


Tip To set the same attribute value for multiple page items, select all items using 
Gtrl+click and set the desired value. 


16.5 Modify Page-Rendering Process 


On the Rendering tab, expand the Pre-Rendering node and click the process named Get 
Next or Previous Primary Key Value. Replace its existing Runtime Where clause using 
Table 16-8 to fetch and display vouchers according to the specified criteria. 


Table 16-8. Modify Page-Rendering Process 


Action Attribute Value 

Modify Name Get Next or Previous Primary Key Value 

KTOCESS Runtime Where COCODE=:P95_COCODE and createdon between 
Clause :P94 FROM and :P94_TO and vchverified=:P94_ 


CRITERION and CLOSING=0 
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16.6 Delete Validations 


Delete all validations from this page. Since all the validations on this page relate to the 
voucher entry segment, they are not applicable to the verification process. 


16.7 Delete Processes 


Just like validations, you do not need the defined six processes for this segment. So, delete 
all these processes. 


16.8 Add Processes 


Using Table 16-9, add two processes. As the name implies, the first process (Verify) marks 
a voucher as verified in the transaction master table. The second one is just the opposite 
and is added to reverse the verification process. Once a voucher is marked as verified, 
normal users cannot amend or delete it unless an authorized person reverses its state to 
unverified. Note that since each transaction number (TRAN_NO) is generated uniquely 
and belongs to a particular company, no more comparisons are needed in the UPDATE 


statement’s WHERE clause. 


Table 16-9. Process Attributes 


Action Attribute Value 
Create Process Name Verify 
Type PL/SQL Code 
PL/SQL Code update gl tran master set 
vchverified='Y' where tran no=:P95 
TRAN NGQ; 
Point Processing 
When Button Pressed Verify 
Create Process Name Unverify 
Type PL/SQL Code 
PL/SQL Code update gl tran master set 
vchverified='N' where tran no=:P95 
TRAN NGQ; 
Point Processing 
When Button Pressed Unverify 
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16.9 Handle Branches 


Remove the first branch named Go To Page 95 with the invalid When Button Pressed 
value. Set the When Button Pressed attribute to GET NEXT TRAN NO and GET_ 
PREVIOUS_TRAN_NO, respectively, for the next two branches, also named as Go To 
Page 95. 

Using Table 16-10, add a new branch. This branch is added to page 95 to move 
around vouchers of the selected criteria. Without this, when you click the Verify button, 
the voucher is marked as verified, and the Unverified button becomes visible. Ina 
situation like this, you cannot verify subsequent vouchers in one go and then move 
back to select the next one manually. Once in place, the branch keeps you on the same 
page with the next record fetched using a value (&P95_TRAN_NO_NEXT.) held in the 
corresponding page item (P95_TRAN_NO) specified in the Set Items section. 


Table 16-10. Branch Attributes 


Action Attribute Value 
Create Branch Name Stay on this page 
Point After Processing 
Type Page or URL (Redirect) 
Target Type = Page In This Application 
Page =95 
Set Items 
Name Value 
P95_TRAN_NO &P95_TRAN_NO_ 
NEXT. 
Condition Type Request is contained in Value 
Value Verify, Unverify 


16.10 Test Your Work 


Execute the following steps to test this segment, which you can invoke from the Closing 
menu: 


1. Select a date range in which you entered vouchers 
(see Figure 16-1). 


2. With the Unverified option selected, hit the Get button. 
The Vouchers Verification region will be populated with all 
unverified vouchers. 


3. Click the Call link for a voucher to bring up page 95 with all 
the details of the selected voucher. 
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4. Click the Verify button on this page (that is, page 95). The 
selected voucher will be marked as verified, and the next 
voucher will come up automatically for verification. 


9. Click the Cancel button. Select the Verified option from the 
Parameters region and click Get again to have a list of all the 
vouchers you just verified. 


6. Goto Select menu (from the main menu), and select the 
appropriate period for which you created the previously 
verified vouchers. Select Transactions from the main menu 
followed by the type of voucher you just verified. The Verified 
column on this page should now be displaying Y for all the 
verified vouchers. Click the Edit link for a verified voucher to 
open its details. Note that all the buttons, except Cancel and 
Add Row, have disappeared. This is because of the condition 
that you implemented in Chapter 14 (see Table 14-13), which 
says that you can hide all buttons if a voucher either is marked 
as verified or is an autogenerated closing voucher, which 
you'll create in Chapter 29. 





From 01-Aug-2015 
å | Date Range Based on Creation Date 
To 31-Aug-2015 


Select: ©) Unverified © Verified 





Call Hum ber Date Description Created By Created On 
pP 1 01-JUL-2015 Paid to AB. Enterprises vide irvoice @ 79345 SUPER 13-ALG-27015 
pP 1 01-AUG-2015 Paid to XKY.Corporstion against invoice & 987654 vide chg # 123456 SUPER 22-ALG-2015 
pe 1 BL-JUL-2016 Recorded local export vide irvoice & 173456 SUPER J1-AUG-2015 
pe 2 15-J0L-2016 Recorded local sales vide invoice 8 981654 SUPER N-AUG-2015 
I 


Link to the Main Verification Page 


Figure 16-1. Voucher verification 
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16.11 Summary 


In this chapter, you created a mechanism that not only ensures the accuracy of 
transactions but also prevents data manipulation. After verifying a voucher, a user can 
print its hard copy, which comes next. 
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The application enables you to make hard copies of vouchers. Using this feature you can 
print either a single voucher or multiple vouchers at once. Note that the output format 
for all the reports created in this application will be PDF. To get these PDFs, you must 
have access to a print server, such as Oracle BI Publisher. As of this writing, the online 
APEX development environment supports PDF printing. You will use Microsoft Word 

to create report templates in this book (I used Word 2003). In addition, you need Oracle 
BI Publisher Desktop to prepare the report templates, for which you might be asked to 
install Java Runtime Edition (JRE) and Dot Net Framework (in my case, it was jre-6u11- 
windows -1586-p-s.exe and NetFx20SP1 x86.exe). To begin with, you have to create a 
parameters form to specify the criteria used to produce the hard-copy report. 


17.1 Create a List of Values 


Using Table 17-1, create a dynamic LOV from scratch. It contains a list of users and will 
be used in the next section to print only those vouchers that were recorded by the user 
selected from the list. 


Table 17-1. Dynamic LOV Attributes 


Action Attribute Value 
CreateLOV Name Users 
Type Dynamic 
Query SELECT userid d, userid r FROM gl users 


WHERE cocode=(select cocode from gl users where 
userid = :APP_USER) 


17.2 Create the Parameters Form 


Create a blank page and follow the instructions in Table 17-2 to add parameter 
components. 
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Table 17-2. Parameters Form Attributes 


Action 


Create Blank Page 


Create Region 


Create Page Item 


Create Page Item 


Create Page Item 
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Attribute 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu 


Entry 

Title 

Type 

Template 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

Shared Component 
Display Null Value 
Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Name 

Type 

Label 

Region 

Label Column Span 
Value Required 


Value 


71 

Vouchers Report 

Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation 
menu entry for this page 


Reports 


Vouchers Report 
Static Content 
Standard 
P71_VCHCODE 
Select List 
<b>Voucher Type</b> 
Vouchers Report 

2 

Required 

Yes 

Shared Component 
Voucher Types 

No 
P71_VCHDATEFROM 
Date Picker 
<b>Voucher Date</b> 
Vouchers Report 

2 

Required 

Yes 
P71_VCHDATETO 
Date Picker 

Clear Label Box 
Vouchers Report 

2 


Yes 
(continued) 


Table 17-2. (continued) 


Action 


Create Page Item 


Create Page Item 


Create Page Item 


Create Page Item 


Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Default Type 
PL/SQL Expression 
Name 

Type 

Label 

Region 

Label Column Span 
Value Required 
Default Type 
PL/SQL Expression 
Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Default Type 

Static Value 

Name 

Type 

Label 

Region 

Label Column Span 
Value Required 
Default Type 

Static Value 
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Value 


P71_CREATEDFROM 
Date Picker 
<b>Creation Date</b> 
Vouchers Report 

2 

Required 

Yes 

PL/SQL Expression 
SYSDATE 
P71_CREATEDTO 
Date Picker 

Clear Label Box 
Vouchers Report 

2 

Yes 

PL/SQL Expression 
SYSDATE 
P71_VCHNOFROM 
Text Field 
<b>Voucher Number</b> 
Vouchers Report 

2 

Required 

Yes 

Static Value 

1 (from minimum voucher number) 
P71_VCHNOTO 

Text Field 

Clear Label Box 
Vouchers Report 

2 

Yes 

Static Value 


9999999999 (to maximum voucher 
number) 


(continued) 
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Table 17-2. (continued) 


Action Attribute Value 
Create Page Item Name P71 USERID 
Type Select List 
Label <b>Created By</b> 
Region Vouchers Report 
Label Column Span 2 
Template Required 
Value Required Yes 
LOV Type Shared Component 
List of Values Users 
Display Null Value No 
Default Type PL/SQL Expression 
PL/SQL Expression V('APP USER!) (show id of the 
logged in user) 
Create Button Button Name Print 
Label Print 
Region Vouchers Report 
Button Position Copy 
Hot Yes 
Action Submit Page 


17.3 Create Report Query 


A report query, as the name suggests, is a SELECT statement that fetches records according 
to the specified parameters. This query is then associated with a report layout to print 
fetched records in a desired format. Create a report query using the following steps: 


1. Goto Shared Components and click the Report Queries link 
located in the Reports section. 


2. Click the Create button to create a new query. 


3. Type vouchers_report in the Report Query Name box, set 
Output Format to PDE set View File As to Attachment, and 
then click Next. 


4. Copy and paste the SQL query contained in the Book_Code\ 
Chapter17\Report Query.txt file and click Next. 
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5. Select the XML Data option for Data Source for Report 
Layout to export your report definition as an XML file. This 
file contains the data fetched using the previous SELECT 
statement. 


6. Click the Download button (on the same Download Definition 
page), click the Save File option in the resulting dialog box, 
and click OK. This will save an XML file (vouchers report. 
xml) to your local hard drive. 


7. Click the Create Report Query button. 


8.  Onthe Confirm page, click the Test Report button. In the 
resulting pop-up dialog box, select Open with Adobe Acrobat 
option, and click OK. Since the report is based on several 
bind variables (whose values will be passed on to the query 
from the page 71 parameters), a blank generic PDF will be 
displayed at this stage. 


9. Click the Create button to finish the wizard. 


17.4 Download and Install BI Publisher Desktop 


BI Publisher provides client-side tools that aid in building and testing layout templates. 
This consists of a plug-in to Microsoft Word for building RTF templates. You can 
download it from www. oracle.com/technetwork/middleware/bi-publisher/ 
downloads/index.html. 

Download the software using the link BI Publisher Desktop 10.1.3.4.1 for Windows 
(123 MB) and install it on your PC using the . exe file. Once the installation completes, 
you'll see the BI Publisher plug-in as a menu item in Microsoft Word. In newer Microsoft 
Word versions, it will be placed under the main Add-Ins menu. Note that I have provided 
the link that I tested myself. There might be some new versions of BI Publisher Desktop 
available when you access the download page. It will be feasible to go with the tested 
version first. 


17.5 Create Report Template in Microsoft Word 


Perform the following steps in Microsoft Word to create a template for the vouchers 
report. For your convenience, I have provided both XML and RTF files with the book’s 
code. 


1. Select an A4 size page and set the margins. 


2. From the Data ribbon (under the Oracle BI Publisher main 
menu), select Load XML Data, as shown in Figure 17-1. In 
some Word versions, it is listed as Sample XML. 
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(23) WHI- v) vouchers report [Compatibility Mode] - Mici 
~ Home Insert Page Layout References Mailings Review View | Add-Ins | 


Oracle BI Publisher + 















= Load XML Schema... 
Menu Commands | | 


Figure 17-1. Load XML Data menu item 


3. Select vouchers report.xml and click Open to load the XML 
file you downloaded in the Create Report Query section. The 
message "Data Loaded Successfully” will appear. Click OK. 


4. Select Insert and then choose the option Table Wizard (as 
shown in Figure 17-2) to add a table. This table will be used 
to output voucher details. Set Report Format to Table and 
click Next. On the next form, set Data Set to DOCUMENT/ 
ROWSET/ROW. Click Next again. 


3) Ha- 0): vouchers report [Compatibility Mode] - Mic 


Home Insert Page Layout References Mailings Review View Add-Ins | 





Oracle BI Publisher” Data ~ Inser ert ~ | Preview ~ Tools ~ Help ~ 


abl Field... 











Menu Commands | =] Table/Form... 





Figure 17-2. Table Wizard menu item 


5. Move the Vchno, Coacode, Coatitle, Cccode, Cctitle, Vchdr, 
Vchcr, and Vchreference fields to the right pane, as illustrated 
in Figure 17-3. Click Next. 
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Table Wizard 


Which fields do you want to show in your report? 


Coname | Vehno 
Vchoode Coacode 
Vchtitle Coakitle 
Vchdate Cecode 
¥chdescription Cctitle 
Createdby : Vchdr 
Createdon Vcher 


Line No Vchreference 





Figure 17-3. Moving the fields 


6. Select Vchno in Group By to group records according to 
voucher number. Click Next and then do not select any field 
for Sort By. Click Next once more and then add appropriate 
labels, as shown in Figure 17-5 later in this chapter. 


7. Click Finish. 


17.6 Template Formatting 


Follow these steps to format the template: 


1. Double-click the group field titled “group ROW by VCHNO.” 
On the Properties tab, set the Break attribute to Page. This will 
print each new voucher on a separate page. Click OK. 


2. Select the Insert ribbon and select Field. Select the CONAME 
field and click the Insert button to add this field to the next 
row just after the group “group Row by VCHNO.’ You can also 
add the logo (logo. jpg is provided with the book’s source 
code) just before the company name. 


3. Add the VCHTITLE field under CONAME to print the voucher 
type under the company name. 


4. Add the VCHNO field and add the label Voucher Number in 
front of it. 


5. Add the label Printed on: and append the NOW field to it. The 
field (NOW) contains current timestamp. 
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6. Add the VCHDATE field using the instructions in step 2. Enter 
Voucher Date as its label. 


7. Add the VCHDESCRIPTION field and put a label on it. Click 
Change. 


8. Double-click the first COACODE table column labeled 
Account. In BI Publisher’s Properties dialog, click the 
Advanced tab. Append COATITLE to the existing code so that 
it looks like this: 


<?COACODE?>-<?COATTTLE?> 


Click OK. This expression will concatenate an account code 
and its corresponding title in the report. 


9. Delete the column COATITLE. 


10. Repeat the previous two step to join the CCCODE and 
CCTITLE (cost center code and title) fields. 


11. Double-click VCHDR. Set its type to Number and its format 
to #,##0.00. Using the standard alignment tool in Microsoft 
Word, right-align the field. Repeat this step for VCHCR. 


12. Adda blank row (by pressing the Enter key) before the page 
“preakend ROW by VCHNO.’ Click Insert and then select 
Field. In the Field dialog box, select VCHDR. From the 
Calculation list, select sum, select On Grouping, and click 
Insert. Repeat this step for VCHCR. Insert a label of Total and 
then format and align the two fields as shown in the template. 
This step will add a new row (just after the last transaction) to 
display the sum of the debit and credit columns. 


13. Add the fields CREATEDBY and CREATEDON, as shown in 
Figure 17-4, to print who created the voucher along with its 
creation date. 


14. Click the View menu and select Header and Footer. Put the 
cursor in the Footer section. From Insert Auto Text, select 
Page X of Y to print the page number on the bottom of each 
page. In the latest versions of Word, it is located under the 
menu Insert » Page Number » Bottom of Page. Figure 17-4 
shows the completed report template. 


15. Save the report to your hard drive as vouchers report and 
select Rich Text Format (RTF) as its type. 


16. Close Microsoft Word. 


156 


CHAPTER 17 ™ VOUCHERS REPORT 





group ROW by VCHNO [1 | 
CONAME< : | 
The Cloud Accountaat Vouchers Report 





aad 8 < | 
omme 


page breakend ROW by VCHNO 


Figure 17-4. Report template, with step numbers 


Note For your convenience | have provided a completed template (vouchers report. 
rtf) in the Chapter17 folder in the downloaded code. 


17.7 Create the Report Layout 


After creating the report template, the next step is to upload it to APEX. To do so, follow 
these steps: 


1. Goto Shared Components and select Report Layouts (in the 
Reports section). 


2. Click Create to upload a new layout. 
3. Select Named Columns (RTF) and click Next. 


4. Set Layout Name to vouchers report, Report Layout File 
to vouchers report.rtf (select the file using the browse 
button), and click the Create Layout button. 
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17.8 Attach the Report Layout to Report Query 


Your report template is uploaded, so now you need to attach this layout to the 
corresponding query you defined in the Create Report Query section. Execute the 
following steps for this: 


1. Goto Shared Components and select Report Queries. 


2. Click the vouchers_report query. In Report Query Attributes, 
switch Report Layout from Use Generic Report Layout to 
vouchers_report. Click the Apply Changes button. This way, 
the APEX engine will use vouchers report.rtf to display the 
result returned by the report query. 


17.9 Send the Print Request 


Edit page 71 and create a branch listed in Table 17-3 to send a print request when the 
Print button is clicked. Go to the Processing tab, right-click the After Processing node, 
and select Create Branch from the context menu. Set the attributes in in Table 17-3 for the 
new branch. 


Table 17-3. Branch Attributes 


Action Attribute Value 
Create Branch Name Run Vouchers Report 
Point After Processing 
Type Page or URL (Redirect) 
Target Type: Page in this Application 
Page: 0 


Request (under Advanced section): 
PRINT_REPORT=vouchers_report 


When Button Pressed Print 


Note You must use the same name and case for Report Query, Layout, and Branch 
Request or you'll get an error while printing the PDF. For instance, use vouchers report 
for all three in the current scenario. Also, ensure that there is no space in the print request 
(PRINT REPORT=vouchers report) or you'll get an “ORA-22275: invalid LOB locator 
specified” error while printing the PDF report. 
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17.10 Create Validation 


The validation created in Table 17-4 will check the data for the existence of the provided 


criteria. 


Table 17-4. Validation Attributes 


Action Attribute Value 
Add Validation Name Check Data 
Type PL/SQL Function (returning Error 
Text) 
PL/SQL Function Book_Code\Chapter17\Check 
Data.txt 
Error Message No data found 
When Button Pressed Print 


17.11 


Suppose that right now you have just one voucher that you created in Chapter 14. Let's 
fill in the parameters form (as illustrated in Figure 17-5) to see its printed version, also 


Test Your Work 


illustrated in Figure 17-5. 


1. 


Click the Vouchers option (under Reports) in the Main Menu 
to open page 71, Vouchers Report. 


Select BPV or the type you used when you created the voucher 
in Chapter 14. 


Also select the same date you entered there in both Voucher 
Date boxes. 


It’s good if you recall the date you entered that voucher. If you 
can’t, then select a long range for Creation Date. 


Enter 1 in both Voucher Number boxes, or leave them to their 
default minimum and maximum values. 


Select the ID of the user who entered that voucher and click 
the Print button. This should bring up a pop-up window to 
either open or save the PDF report. Choose either of these 
options and take a look at the printed version of the voucher. 
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Report Parameters @—— Vouchers Report Ea 


Voucher Type * ey a 
Wouches Date” 61-Jul-2015 
TAN 
PDF Qutput , 
| Create Date Li aug P15 
Lap 2015 


Voucher Humber * 1 


CE 





sane 
Created SUPER a 
ABC & Company 
Vouchers Report 
17-AUG-2015 05:37:57 





vee dee 01-JUL-2015 
Paid to AB. Enterprises vide invoice # 78345 . 








Account Cost Center Credit Reference 

_20100100001-A.B. Enterprises 09001-N/A 3,000.00 0.00 Inv# 78345 
3020030000 1-ABN Amro Bank 09001-N/A 0.00 3,000.00 
Total 2,000.00 2,000.00 


Figure 17-5. Printing a report 


17.12 Summary 


Printed copies of vouchers are kept in folders along with supporting documents (bills, 
invoices, and so on) for future referencing. The next chapter discusses another significant 


financial report called Ledger. 
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A ledger report is a report that shows all financial activities performed in an account. 

In this application, it consists of seven columns, as illustrated later in the chapter in 
Figure 18-1. When a voucher is saved, all transactions you define in it are posted to the 
relevant ledger accounts with the respective debit and credit figures. The ledger report 
shows accounts with their transactions and balances. To generate this report, you use 
the Ledger Report Parameters form, where you specify the duration and the range of 
accounts you want to browse. As you can see, the parameter form has two buttons: the 
Display button is used to produce an onscreen view of the ledger report, while the Print 
button produces a hard copy. A useful ability of the report is that it contains a link for 
viewing the source voucher. This link will be created on the Voucher Date column. 


18.1 Create Page and Parameters Form 


The Ledger report segment will be created using a blank page containing two regions, 

as listed in Table 18-1. The first region will receive report parameters, and the second 
one (to be created in the next section) will show the ledger report onscreen. You will add 
two pop-up LOVs to the parameter form. Using these LOVs, users will select financial 
accounts from the COA. Note that the COA Entry Level LOV will show only transaction- 
level accounts (in other words, level 4 accounts). 


Table 18-1. Page and Parameters Form Attributes 


Action Attribute Value 
Create Page Number 72 
Blank Page Name Ledger Report 

Page Mode Normal 

Breadcrumb - do not use breadcrumbs on page - 

Navigation Preference Identify an existing navigation menu entry for 

this page 
Existing Navigation Menu Reports 
Entry 
(continued) 
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Table 18-1. (continued) 


Action 


Create 
Region 


Create 
Page Item 


Create 
Page Item 
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Attribute 

Title 

Type 

Template 
Name 

Type 

Label 

Region 

Label Column Span 
Template 
Value Required 
Source Type 


SQL Query 


Source Used 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Source Type 


SQL Query 


Source Used 


Value 


Ledger Report Parameters 
Static Content 

Standard 

P72 FROM 

Date Picker 

<b>From</b> 

Ledger Report Parameters 
2 

Required 

Yes 

SQL Query (return single value) (select fiscal 
year's starting date) 


SELECT pfrom From gl fiscal year 
WHERE cocode=(select cocode from gl users 
where userid =:APP USER) 
AND 
coyear=(select coyear from gl users 
where userid =:APP USER) 
AND 
comonthid=1 


Only when current value in session state is null 
P72 TO 

Date Picker 

<b>To</b> 

Ledger Report Parameters 

2 

Required 

Yes 

SQL Query (return single value) (select fiscal 
year's closing date) 


SELECT pto FROM gl fiscal year 
WHERE cocode=(select cocode from gl users 
where userid =:APP USER) 
AND 
coyear=(select coyear from gl users 
where userid = :APP USER) 
AND 
comonthid=12 


Only when current value in session state is null 
(continued) 


Table 18-1. (continued) 


Action 


Create 
Page Item 


Create 
Page Item 


Create 
Button 


Create 
Button 


Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

List of Values 
Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

List of Values 
Button Name 
Label 

Region 

Button Position 
Action 

Button Name 
Label 

Region 

Button Position 


Action 
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Value 


P72 ACCOUNTFROM 
Popup LOV 

<b>From Account</b> 
Ledger Report Parameters 
2 

Required 

Yes 

Shared Component 

COA Entry Level 

P72 ACCOUNTTO 

Popup LOV 

<b>To Account</b> 
Ledger Report Parameters 
2 

Required 

Yes 

Shared Component 

COA Entry Level 

Display 

Display 

Ledger Report Parameters 
Copy 

Submit Page 

Print 

Print 

Ledger Report Parameters 
Copy 

Submit Page 


LEDGER REPORT 
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18.2 Create an Interactive Report Region 


Using Table 18-2, create an interactive report region to produce the onscreen version of 
the ledger report. The SELECT statement used in this report comprises two subqueries 
joined together using a UNION ALL set operator. The first subquery calculates opening 
balances of accounts by summing up all debit and credit figures recorded before the 
From date, specified in the P72_FROM date picker item. The second subquery fetches 
all transactions recorded between the two selected dates, inclusive. These are the 
transactions that you want to see in the ledger report. The queries also contain filters to 
process only those accounts selected in the two pop-up lists. 


Table 18-2. Interactive Report Region 


Action Attribute Value 
Create Region Title Ledger 
Type Interactive Report 


SQL Query Book CodeVChapter18VIR SQL Query 18.2.txt 
Template Standard 


18.3 Formatting Ledger Report 


Execute the following steps to format the Ledger interactive report: 


1. Set the Type attribute to Hidden Column for both the VCHCODE 
and TRAN NO columns. 


2. Modify the VCHDR, VCHCR, and BALANCE columns by applying a 
format mask ($5,234.10) to all three of them. 


3. Add appropriate headings to all columns, as shown in 
Figure 18-1. 


4. Run this segment from the Ledgers menu under the Reports 
menu. Select the date you entered for the first voucher you 
created in Chapter 14 in both date boxes, or specify a long 
range to fetch that transaction. Also select account of A.B. 
Enterprises (the account you selected in that voucher) in both 
pop-up LOVs, and hit the Display button. 


9. Click the Actions menu. Select Format followed by the Sort 
option. Select the columns in this order: COACODE (Code), 
VCHDATE (Voucher Date), and VCHNO (Voucher Number). Keep 
Direction as Ascending and Null Sorting as Default. This step 
will sort the interactive report first on account codes, then 
on voucher dates, and finally on voucher numbers. The new 
column names, appearing within parentheses, were provided 
in step 3. 
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6. Click the Actions menu again. Select Format and then 
Control Break. Select COACODE (Code) in the first row and 
COATITLE (Title) in the second row. Click Apply. This action 
will place a control break to display each account separately. 


7. Click the Actions menu. Select Format and then Highlight. 
Set the highlight rule Name to Opening Balance, Highlight 
Type to Row, Background Color to Blue, Text Color to White, 
Condition Column to Description, Operator to Like, and 
Expression to Opening Balance%. Click Apply. This rule is 
created to highlight opening balances of accounts using 
different colors. 


8. Click the Actions menu. Select Format and then Aggregate. Set 
Aggregation to New Aggregation, Function to Sum, Column 
to VCHDR (which should be Debit after renaming). Click 
Apply. This will add a grand total figure for each account after 
summing up all the values in the debit column. 


9. Repeat step 8 for the VCHCR (Credit) column. 


10. Click Actions and select Save Report. Select the Save option As 
Default Report Settings, set Default Report Type to Primary, 
and click Apply to save these modifications. 


11. Inthe second LOV, select the ABN AMRO bank account that 
you used in Chapter 14, and hit the Display button to refresh 
the report, which should now display the two ledgers with 
the grand totals and individual current balances of these 
accounts, as shown in Figure 18-1. 


18.4 Get Ledger Report in PDF 


Since the process of creating the ledger PDF is similar to the vouchers report process 
that you saw in the previous chapter, I won't repeat it here. However, the distinctions 

are highlighted in Table 18-3. To assist you further, I've provided the two required files 
(XML and RTF) along with the corresponding report query and code in the Chapter18 
folder. Note that the ORDER BY clause in the report query is different from the interactive 
report query because the two columns (COACODE and GRP) defined there created a sorting 
conflict in Microsoft Word. Ledgers didn't sort data according to voucher dates, resulting 
in the display of opening balances in between normal transactions rather than on top 

of each ledger. If you want to try yourself, then create the PDF version by executing the 
instructions mentioned in the sections starting from "Create Report Query” to "Create 
Validation” (excluding BI Publisher Desktop installation), considering the attributes in 
Table 18-3 specific to this segment. 
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Table 18-3. Report Query Attributes 


Attribute 


Report Query Name 

SQL Query 

XML File Name 

Columns in RTF Template Table 


Group by selected in RTF Template 
RTF File Name 

Branch Name 

Branch Request 

Validation Name 


Validation Code 


Value 


ledger_report 
Book_Code\Chapter18\PDF Report Query.txt 
ledger_report.xml 


coacode, vchdate, vchtype, vchdescription, 
vchdr, vchcr, and balance 


coacode 

ledger_report.rtf 

Run Ledger Report 
PRINT_REPORT=ledger_report 

Check Data 
Book_Code\Chapter18\Check Data.txt 


18.5 Drill Down to Source Voucher 


While scrutinizing a ledger, an accountant may want to see the complete details of a 
specific transaction appearing in that ledger. To facilitate the accountant, you will provide 
a link for each transaction in the ledger interactive report to allow easy navigation to the 
source voucher. Execute the instructions provided in the following sections to add this 


functionality. 


18.5.1 


Create Link in Interactive Report 


Expand the Columns node in the Ledger interactive report region and set the 
attributes listed in Table 18-4 for the VCHDATE column. This is the column that will 
act as a link between the ledger and source voucher. The link is created on the 
date column, and it calls page 44 (created next) to display details of the clicked 
transaction. It also forwards three values to items on page 44 from the voucher 


master section. 
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Table 18-4. Link in Interactive Report 


Action 


Column 


Attribute Value 
Modify Report Column Name VCHDATE 

Type Link 

Target Type = Page In This Application 
Page = 44 
Set Items 
Name Value 
P44 VCHDATE #VCHDATE# 
P44 VCHCODE #VCHCODE# 
P44 VCHNO #VCHNO# 


Clear Cache = 44 
Link Text #VCHDATE# 


18.5.2 Create Voucher Page 


Execute the following steps to create a new page to display the selected voucher when a 
link is clicked in the ledger report: 


1. 


Create a new page (page 44) from page 43 using the Copy 
utility as described previously for the Voucher Verification 
segment. Name the new page Drilled Down Voucher and 
associate it with the Reports menu. 


Modify the Transaction Details region on page 44 by replacing 
the existing SQL query with Book_Code\Chapter18\Drilled 
Down Voucher. txt. 


In the previous section, you passed three page items from 
the ledger interactive report to this page. However, there is 

a fourth one (Description) that is displayed in the voucher’s 
master section. Since the master description was not fetched 
in the interactive report query, you will adopt another 
technique to fetch a value for this item using the three key 
values defined on the previous page. On page 44, click the 
P44_VCHDESCRIPTION item and then set the attributes 
listed in Table 18-5. 


167 


CHAPTER 18 = LEDGER REPORT 


Table 18-5. P44_VCHDESCRIPTION Attributes 


Attribute Value 
Source Type SQL Query (return single value) 
SQL Query SELECT vchdescription 


FROM gl tran master 

WHERE vchdate=:P44 VCHDATE AND 
vchcode=:P44 VCHCODE AND 
vchno=:P44 VCHNO 


Source Used Always, replacing any existing value in session state 


4. Click the Cancel button. Set its label to Back to Ledger and 
replace the existing Page attribute value (under Target) from 
42 to 72 to move back to the ledger report page. 


5. Delete all other buttons, all validations, and all processes. 


18.6 Test Your Work 


That's it—you're done! The ledger report is ready for a test-drive. Invoke it from the 
Reports menu and pass different parameters (as illustrated in Figure 18-1) to check both 
the onscreen and PDF versions. You can optionally add a print button to page 44 that will 
allow users to print the selected voucher without leaving the interface. You can find its 
report query in the Print Drilled Down Voucher.txt file. 
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Print PDF 
From © O1-JUL-2015 5 
To”  30-JUN-2016 5 
‘ — © Report Parameters 
From Account 20100100001-A.B. Enterprises a 
To Account * — 30200300001-ABN Amro Bank A 


On-Screen Report 


JE 





e Control Break Rules 


« ——& Highlight Rule 





Code : 20100100001. Title : AB. Enterprises 


Voucher Date Type Voucher Number Description Debit Credit Balance 

01-JUL-2015 BPW 1 Paid to AB. Enterprises vide invoice @ 78345 $3,000.00 $0.00 $3,000.00 
$3,000.00 $0.00 

Drill-down Link c t 

Code : 30700300001, Title : ABN Amro Bank Balance 

Voucher Date Type Voucher Number Description Debit Credit Balance 

01-JUL-2015 BPW 1 Paid to AB. Enterprises vide invoice @ 78345 40.00 $3,000.00 = $3,000.00 

Total 


Figure 18-1. Ledger report 


18.7 Summary 


Using a ledger report you can view the activities and balances of accounts with a few 
clicks. If you want to see a summarized report of all accounts, move on to the next chapter 
to create trial balance report. 
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Trial Balance Report 





The trial balance report shows the summarized balances of accounts up to a specific date. 
It delivers the opening balance, activity, and closing balance of each account. Unlike the 
ledger report, this report can be produced for any level. For example, you can run a trial 
balance report for the first level only simply to see top-level account activities. You can 
also filter the report to display a specific range of financial accounts from the COA along 
with a cost center should you want to see account balances for only one cost center. The 
parameters form has just one date picker from where you select the date up to which 
closing balances are calculated and displayed in the report. 


19.1 Trial Balance Report Table 


The transaction data, entered through vouchers, are stored in the gl tran master and 
gl tran detail tables. After generating the trial balance report from these two tables, 
you store the result in the following temporary table. It holds trial balance data for each 
user until the user runs the report again. The data in this table is populated through a 
process to be created later in Table 19-4. 


TRIAL BALANCE REPORT TABLE 


CREATE TABLE gl trial balance 

(coacode VARCHAR2(11), coatitle VARCHAR2(50), coalevel NUMBER(1), opendr 
NUMBER(15,2), opencr NUMBER(15,2), activitydr NUMBER(15,2), activitycr 
NUMBER(15,2), closingdr NUMBER(15,2), closingcr NUMBER(15,2), 

coname VARCHAR2(50), tbdate DATE, fromaccount VARCHAR2(11), toaccount 
VARCHAR2(11), cccode VARCHAR2(5), 

cctitle VARCHAR2(25), reportlevel NUMBER(1), userid VARCHAR2(50), 

grand total NUMBER(1) ) 
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19.2 Create a List of Values 


Using Table 19-1, create a LOV from scratch. It will be used to allow you to select any 
account level for the trial balance report. If you run this report for the transaction level 
(level 4), all parent levels (that is, 1, 2, and 3) also appear on the report by default, unless 
you put a check on the parameter option labeled Print Selected Level. 


Table 19-1. LOV Attributes 


Action Attribute Value 
Create LOV Name COA All Levels 
Type Dynamic 
Query SELECT coacode||'-'||coatitle d, coacode r FROM gl coa 


WHERE cocode=(select cocode from gl users 


where userid = :APP USER) 
ORDER BY coacode 


19.3 Create Page and Parameters Form 


Using Table 19-2, create a blank page and its components for this segment. 


Table 19-2. Page and Component Attributes 


Action Attribute 
Create Blank Page Page Number 
Name 
Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 


Entry 
Create Region Title 

Type 

Template 


172 


Value 


73 

Trial Balance Report 

Normal 

- don’t use breadcrumbs on page - 


Identify an existing navigation 
menu entry for this page 


Reports 


Trial Balance Report Parameters 
Static Content 
Standard 


(continued) 


Table 19-2. (continued) 


Action 


Create Page Item 


Create Page Item 


Create Page Item 


Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

List of Values 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

List of Values 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

List of Values 
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Value 


P73 ACCOUNTFROM 

Popup LOV 

<b>From Account</b> 

Trial Balance Report Parameters 
2 

Required 

Yes 

Shared Component 

COA All Levels 

P73 ACCOUNTTO 

Popup LOV 

<b>To Account</b> 

Trial Balance Report Parameters 
2 

Required 

Yes 

Shared Component 

COA All Levels 

P73 CCCODE 

Popup LOV 

<b>Cost Center</b> 

Trial Balance Report Parameters 
2 

Optional 

No 

Shared Component 


Cost Centers 


(continued) 


173 


CHAPTER 19 ™ TRIAL BALANCE REPORT 


Table 19-2. (continued) 


Action 


Create Page Item 


Create Page Item 


Create Button 


Create Button 


Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Default Type 

Static Value 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
Default Type 
PL/SQL Expression 
Button Name 
Label 

Region 

Button Position 
Action 

Button Name 
Label 

Region 

Button Position 


Action 


Value 


P73_COALEVEL 

Text Field 

<b>Account Level</b> 

Trial Balance Report Parameters 
2 

Required 

Yes 

Static Value 

4 (display report for all levels) 
P73_TBDATE 

Date Picker 

<b>As On</b> 

Trial Balance Report Parameters 
2 

Required 

Yes 

PL/SQL Expression 

SYSDATE 

Display 

Display 

Trial Balance Report Parameters 
Copy 

Submit Page 

Print 

Print 

Trial Balance Report Parameters 


Copy 
Submit Page 


19.4 Create the Interactive Report Region 


Using Table 19-3, add an interactive report region to the page. It will produce an onscreen 
version of the trial balance report. It is based on a SELECT statement that fetches the 
report of the current user from the GL TRIAL BALANCE table. The table is populated using 
a process defined in the next section. 
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Table 19-3. Interactive Report Region Attributes 


Action Attribute Value 
Create Region Title Trial Balance 
Type Interactive Report 
SQL Query SELECT * FROM gl trial balance 
WHERE userid = :APP_USER 
ORDER BY coacode 


19.5 Create a Process to Generate Trial Balance 


The process mentioned in Table 19-4 uses a cursor based on the COA of the logged-in 
user. The cursor loops through every COA record to calculate account balances. These 
balances, along with other relevant information, are inserted into the GL TRIAL BALANCE 
table with the user ID. After completing the loop, a record is added to the end of the table 
that shows the grand total for each column. The process is executed when either the 
Display or Print button is clicked. 


Table 19-4. Process to Generate Trial Balance 


Action Attribute Value 
Create Process Name Generate Trial Balance 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter19\Generate Trial 


Balance.txt 
Point Processing 
Condition Type Request is contained in Value 


Value Display,Print 


19.6 Formatting the Trial Balance Report 


Execute the following steps to format the interactive report: 


1. Add the appropriate headings to columns as Code, Title, 
Opening Debit, Opening Credit, Activity Debit, Activity Credit, 
Closing Debit, and Closing Credit. 


2. Modify all the numeric columns to apply the number format 
mask. 
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3. Run this module from the Trial Balance option in the 
Reports menu. Select the values shown in Figure 19-1 in the 
Parameters region and hit the Display button. At this stage, 
the report will show the balances of just two accounts along 
with their group accounts. These are the same accounts you 
entered in the first voucher. 





From Account 1CAPIT AL 


lo Account ` §040010000)-Standard Chartered (rite 
Cost Center 


Account Level x 4 


. 5 
As On 19-AUG-2015 ic 


Figure 19-1. Report parameters 


4. Click the Actions menu and then click the Select Columns 
option. Move the CCCODE, CCTITLE, COALEVEL, CONAME, 
FROMACCOUNT, REPORTLEVEL, TBDATE, TOACCOUNT, 
USERID, and GRAND TOTAL columns to the Do Not Display 
pane, leaving the Code, Title, Opening Debit, Opening Credit, 
Activity Debit, Activity Credit, Closing Debit, and Closing 
Credit columns in the Display in Report section. Click Apply. 


5. Click the Actions menu again. Select Format » Sort. Select 
CODE in the first row, keep Direction as Ascending, and keep 
Null Sorting as Default to sort the report on the Code column. 
Click Apply. 


6. Adda highlight rule (as mentioned in the Formatting Ledger 
Report section in Chapter 18) for the Grand Total row, using 
Title and GRAND_TOTAL% as Column and Expression, 
respectively. Click Apply. 


7. Click Actions and select Save Report. Select the option As 
Default Report Settings, set Default Report Type to Primary, 
and click Apply to save the report. 


19.7 Print the Selected Level 


Create a check box item as listed in Table 19-5. When this is selected, the process 
associated with this check box will remove all records other than the selected level to 
display a trial balance report for the selected level only. Conversely, keeping it unchecked 
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displays all levels up to the selected level, as you saw in the previous section where you 


selected 4 as the account level and the result displayed all parent levels. Checking this 
option would have displayed the report only for the transaction-level accounts. 


Table 19-5. Check Box Attributes 


Action Attribute Value 
Create Page Item Name P73_SELECTEDLEVEL 
Type Checkbox 
Label Clear Label 
Number of Columns 1 
Region Trial Balance Report Parameters 
Label Column Span 2 
LOV Type Static Values 
Static Values STATIC:Print Selected Level;Y 


19.7.1 Create Process 


The process listed in Table 19-6 is associated with the previous check box to display/print 
accounts for the selected level. 


Table 19-6. Process Attributes 


Action Attribute Value 
Create Process Name Print Selected Level 
Type PL/SQL Code 
PL/SQL Code DELETE FROM gl trial balance 


WHERE coalevel <> :P73 COALEVEL AND 
userid = :APP USER; 


Point Processing 

Condition Type Item = Value 

Item P73 SELECTEDLEVEL 
Value Y 


19.8 Eliminate Zero Balances 


As the name suggests, the process (created later in Table 19-8) associated with the check 
box created in Table 19-7 will eliminate all records that have no balances at all. This 
feature will make the report smaller because it removes those records from the trial 
balance report with zero balances. 
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Table 19-7. Checkbox Attributes 
Action Attribute 


Create Page Item Name 
Type 
Label 
Number of Columns 
Region 
Label Column Span 
LOV Type 
Static Values 
Default Type 


Static Value 


19.8.1 Create a Process 


Value 


P73 ZEROBALANCE 

Checkbox 

Clear Label 

1 

Trial Balance Report Parameters 

2 

Static Values 

STATIC:Eliminate Zero Balances;Y 
Static Value 


Y (all zero balance records will be 
eliminated by default) 


Create the process shown in Table 19-8. The process will eliminate accounts with 


zero balance. 


Table 19-8. Process Attributes 
Action Attribute 


Create Process Name 


Type 
PL/SQL Code 


Point 
Condition Type 
Item 


Value 
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Value 


Eliminate Zero Balances 
PL/SQL Code 


DELETE FROM gl trial balance 

WHERE 
nvl(opendr, 0) = 0 AND 
nvl(opencr,0) = 0 AND 
nvl(activitydr, 0) = 0 AND 
nvl(activitycr, 0) = 0 AND 
nvl(closingdr,0) = 0 AND 
nvl(closingcr,0) = 0 AND 
userid=:APP_USER; 


Processing 

Item = Value 
P73_ZEROBALANCE 
Y 
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19.9 Create a Validation 


The validation listed in Table 19-9 will 


Table 19-9. Validation Attributes 
Action Attribute 


Create Validation Name 


check the data for the existence of report criteria. 


Value 


Check Data 


Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter19\Check Data.txt 
Error Message No data found 

Condition Type Request is contained in Value 

Value Display,Print 


19.10 Get the Trial Balance Report in PDF 


Create a PDF version of the trial balance report using the instructions in Chapter 17 
considering the distinctions listed in Table 19-10. 


Table 19-10. Report Query Attributes 
Attribute 


Report Query Name 
SQL Query 


XML File Name 
Columns in RTF Template Table 


Group by selected in RTF Template 
RTF File Name 
Branch Name 


Branch Request 


Value 


trial_balance_report 


SELECT * FROM gl trial balance 
WHERE userid=: APP USER 
ORDER BY coacode 


trial balance report.xml 


coacode, coatitle, opendr, opencr, activitydr, 
activitycr, closingdr, and closingcr 


The report doesn't need grouping and sorting 
trial balance report.rtf 
Run Trial Balance Report 


PRINT REPORT=trial balance report 
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19.10.1 Template Formatting 


The template formatting process for this segment is similar to its predecessors; see the 
downloaded RTF (in the Chapter19 folder) for guidance. I added a few more things 

to this template. For example, I repeated the headers on every report page and used a 
different color for the Grand Total row and for the six numeric columns. To repeat the 
report headers in the latest Word versions, select the table in your template (this will 
show an additional menu named Layout). From the Layout menu, click the first option 
labeled Repeat Header Rows. To highlight the Grand Total row, click the COATITLE field 
in the table and select Conditional Format (under the BI Publisher » Insert option). 
Select GRAND_TOTAL from the Data field list and then set the value to Number in the 
list next to it. Under the Condition 1 section, set the Data field to Equal to, and enter 1 

in the corresponding value box. Click the Format button. Check all the three options 
(Background Color, Font Color, and Font Style) in the dialog box. Set Font Style to Bold, 
and pick different background and font colors. The GRAND_TOTAL value that you 
selected in the first conditional step is a column in the trial balance report table. This 
column is marked with a 1 for the grand total row; see the PL/SQL code associated with 
the Generate Trial Balance process (19.5). Repeat the previous step to apply a conditional 
format rule to all the remaining report columns. 


19.11 Drill Down to the Ledger Report 


Just like the link that you created in the ledger report to access the source voucher, you 
will create a link here on the Code column to access the ledger report from within the 
trial balance. Expand the Trial balance report’s Columns node and set the attributes 
in Table 19-11 for the COACODE column. Recall that you needed two account codes and 
two date parameters to call the ledger report. The values declared in the attributes 

in Table 19-11 forward account code information to the ledger page. The dates are 
calculated by the target page itself using a couple of SELECT statements. 


Table 19-11. Code Column Link Attributes 
Action Attribute Value 


Modify Report Column Name COACODE 
Column Type Link 


Target Type = Page In This Application 
Page = 72 


Set Items 

Name Value 

P72 ACCOUNTFROM #COACODE# 
P72_ACCOUNTTO #COACODE# 


Clear Cache = 72 
Link Text #COACODE# 
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19.12 Test Your Work 


Run the trial balance report first by passing a complete COA range, as shown in Figure 19-2. 
Also, try the report by selecting specific accounts and enabling/disabling the optional 
parameters provided on the page. Note that although the drill-down function applies 
to all levels (in other words, all account codes appear as links irrespective of levels), the 
ledger report will display data for the transaction level only. 





Print PDF 
From Account * 1-CAPITAL A 
To Account : 50400 L00002-Standard Chartered (inte A 
Cost Center on —® Report Parameters 
Account Lewel a 4 
AsOn * — 19-AUG-2015 fal 
[7] Print Selected Level 
[F] Eliminate Zero Balances Screen Display 





b Grand Total 


Code pl Title Opening Debit Opening Credit Activity Debit Activity Credit — ClotingDebit Closing Credit 
20100100001 AB. Enterprises z 2 3,000.00 : 3,000.00 
FO SL ABN Amro Bark = - = 3,000.00 = 3,000.00 





Drill-down link to display ledger report 


Figure 19-2. Trial balance report 


19.13 Summary 


The trial balance report here not only displays summarized balances of accounts, but the 
online view of this report helps you drill down to an account ledger and then from 
the ledger account to the source transaction. The next few chapters deal with bank 
transactions. 
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Opening Bank Transactions 





The application provides you with a complete module to deal with your banking. 

Recall that while creating accounts in the COA you used a specific type to mark bank 
accounts; that was the first step in the bank reconciliation process. In addition, the 
application allows you to reconcile the bank transactions recorded through vouchers 
with the statements provided by your banks. But, before that, you have to incorporate 
some bank transactions into this application. These are the transactions recorded either 
manually or in another system and were not reconciled with the banks. In this chapter, 
you'll record all such transactions into a separate table that will keep appearing on the 
Bank Reconciliation page and report unless you mark them as reconciled. The actual 
reconciliation process will be created in the next chapter. 


TABLE TO RECORD OPENING BANK TRANSACTIONS 


CREATE TABLE gl banks os 

(sr no NUMBER, Cocode NUMBER CONSTRAINT fk banks os1 REFERENCES GL Company 
(Cocode) NOT NULL, 

coacode VARCHAR2(11) NOT NULL, remarks VARCHAR2(50) NOT NULL, vchdr 
NUMBER(15,2) NOT NULL, 

vchcr NUMBER(15,2) NOT NULL, reconciled NUMBER(1) NOT NULL, CONSTRAINT 

pk banks os PRIMARY KEY (sr no), CONSTRAINT fk_banks_os2 FOREIGN KEY 
(cocode,coacode) REFERENCES GL COA) 


CREATE SEQUENCE gl banks os seq MINVALUE 1 START WITH 1 INCREMENT BY 1 CACHE 20 





20.1 Create Page 


Using Table 20-1, create a page to record the opening outstanding figures. In this page 
you'll add a tabular form that allows you to input and save as many outstanding figures as 
you want. 
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Table 20-1. Page Attributes 


Action 


Create Page 


Attribute 


Page Type 

Table Owner 

Table Name 

Select Columns 
Allowed Operations 
Primary Key Type 
Primary Key Column 1 
Source Type 
Sequence 
Updatable Columns 
Page 

Page Name 

Page Mode 

Region Title 


Navigation Preference 


Existing Navigation Menu Entry 


Buttons and Branching page 


Value 


Form » Tabular Form 
Accept the displayed value 
GL BANKS OS 

Select all columns 

Update, Insert and Delete 
Select Primary Key Column 
SR NO (stands for Serial Number) 
Existing Sequence 

GL BANKS OS SEQ 

Select all columns 

17 

Opening Banks Outstanding 
Normal 

Opening Banks Outstanding 


Identify an existing navigation 
menu entry for this page 


Setup 
Accept all the default values 


20.2 Modify Region Source Query 


Edit the Opening Banks Outstanding region and modify the Region Source query by 
adding the WHERE clause in Table 20-2. This clause is added to fetch the records of the 
company to which the user belongs. The clause retrieves only those entries that are still 


unreconciled. 


Table 20-2. Opening Banks Outstanding Region Attributes 


Action 


Modify Region 
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Attribute Value 


SQL Query SELECT "SR NO", "COCODE", "REMARKS", 


"COACODE", 


"VCHDR", "VCHCR", "RECONCILED" 
FROM "#OWNER#"."GL_BANKS_OS'" 
WHERE cocode=(select cocode from gl users where 


userid=:APP_USER) AND 
reconciled=0 
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Expand the Columns node under the Opening Banks Outstanding region and 


perform the following modifications: 


1. Set the Type attribute of the SR NO, COCODE, and 
RECONCILED columns to Hidden Column (saves state) to 


hide these columns. 


2. Types appropriate headings for the four visible columns: 
Bank Code, Remarks, Debit, and Credit. 


3. Edit the COACODE column. Set its Type to Popup LOV (shows 
displays value), set List of Values Type to SQL Query, and 
enter the following SQL statement in the SQL Query box to 
display the bank accounts of the current company in the pop- 
up LOV. Set the Width attribute of this column to 50. 


SELECT coacode||'-'||coatitle d, coacode r FROM 


gl_coa 


WHERE cocode=(select cocode from gl_users where 
userid=:APP_USER) AND coatype='Bank' 


ORDER BY coacode 


4. Modify the VCHDR, VCHCR, and RECONCILED columns and 
set their Default Type values to PL/SQL Expression and setPL/ 
SQL Expression to 0. This way the three columns will have 


zero as the default value. 


Set the Width attribute of the Remarks column to 50. 


Sort records in the tabular form by selecting the SR_NO column 
and setting Default Sequence (under Sorting section) to 1. 


20.3 Handling Default Validations 


The APEX engine creates some default validations based on the back-end table 
constraints. One of these validations is COCODE NOT NULL. If you run the page at this 
stage and try to save a record, you'll be prevented by this validation because the company 
code column was hidden in the previous section (step 1) and hence doesn’t carry any 


value. To correct this situation, create a hidden item, as mentioned in Table 20-3. 


Table 20-3. Hidden Item Attributes 
Action Attribute 


Create Page Item Name 
Type 
Region 


Source Type 
SQL Query 


Value 

P17_COCODE 

Hidden 

Opening Banks Outstanding 
SQL Query (return single value) 


SELECT cocode from gl_users where 
userid=:APP_USER 
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Now edit the COCODE column and set the attributes listed in Table 20-4. Using these 
attributes, the COCODE column inherits its value from the previously hidden item: P17 


COCODE. After setting these attributes, the validation won't obstruct you anymore. 


Table 20-4. COCODE Column Attributes 


Action Attribute Value 

Modify Column Column Name COCODE 
Default Type Item 
Item P17_COCODE 


20.4 Add Validation 


The validation listed in Table 20-5 will check whether a positive amount is entered in 
either the Debit or Credit column. 


Table 20-5. Validation Attributes 


Action Attribute Value 
Create Validation Name Check Debit/Credit 
Sequence 45 (place it after COACODE Not NULL 
validation) 
Type PL/SQL Function (returning Error Text) 
PL/SQL Function Book_Code\Chapter20\Check Debit 
Credit.txt 
Error Message Invalid amount 


When Button Pressed SUBMIT 


20.5 Test Your Work 


Run this segment from the Setup » Opening Bank Transactions menu and execute the 
following steps: 


1. Click the Add Row button to add a blank row where you will 
enter the first outstanding transaction of a particular bank. 


2. From the Bank Code pop-up LOV, which should be displaying 
only bank accounts, select an account (for example, 
ABN AMRO). Note that you can enter as many unsettled 
transactions as you need for a bank using this interface. For 
example, there are certain deposits not appearing in the bank 
statement. Similarly, the checks you issued to some creditors 
were not presented as well. You need to input all such cases 
on a separate row so that when you run the reconciliation 
segment, they appear individually as separate entries. 
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3. Enter something in the remarks column, such as Opening 
outstanding as on 30" June 2015. 


4. Enter a numeric value (for example, 10000) in the Debit 
column and hit the Apply Changes button to save this 
entry. Figure 20-1 demonstrates some opening outstanding 
transactions. 





C) Bank Code Remarks Debit Credit 
D 30200300002-Standard Chartered Bank A Received chq & 85236 From B.V.Helform 100002 0 
gp 30200300001-ABN Amro Bank A Received chq & 65832 SA Gacel 150000 0 
D 30200300001-ABN Amro Bank A Paid chq # 123456 to XY. Corporation 0 25000 


Delete Checked Add Row 


Figure 20-1. Opening outstanding transactions 


20.6 Summary 


This segment is helpful in the bank reconciliation process. After you record the 
outstanding transactions through this interface, you are ready to perform the 
reconciliation activity, as discussed in the next chapter. 
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A bank reconciliation is the process by which you match your bank ledger transactions 
with those in your bank statement and attempt to find any differences between the two. 
All income transactions appearing on the debit side of your ledger are shown on the 
credit side of the bank statement. Conversely, all payments that you make are recorded 
on the credit side of your ledger, and the same transactions are reported on the debit side 
of the bank statement. This part of the application allows you to identify transactions and 
perform a reconciliation. 


21.1 Create Page and Parameters Form 


Using Table 21-1, create a blank page and add components to it. The page contains three 
regions. The first region (Parameters), which you are already familiar with, carries two 
radio buttons (Reconciled and Unreconciled) and a Select List showing all accounts 
marked as the Bank type from the chart of accounts. The reconciled option displays all 
the records that you reconciled previously with the bank; all unsettled transactions are 
displayed when you select the Unreconciled option. Whenever you switch banks or select 
a different criterion from the radio group, the page is submitted to refresh the data. 


Table 21-1. Page Attributes 


Action Attribute Value 
Create Blank Page Number 51 
Page Name Bank Reconciliation 
Page Mode Normal 
Breadcrumb - do not use breadcrumbs on page - 
Navigation Preference Identify an existing navigation menu 
entry for this page 
Existing Navigation Menu Utilities 
Entry 
(continued) 
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Table 21-1. (continued) 
Action Attribute 
Create Region Title 
Type 
Template 
Create Page Name 
Item Type 
Label 
Number of Columns 


Page Action on Selection 


Region 
Start New Row 
Column/Column Span 
Label Column Span 
LOV Type 
Static Values 
Display Null Value 
Default Type 
Static Value 

Create Page Name 

Item Type 
Label 
Page Action on Selection 
Region 
Start New Row 
Column/Column Span 
Label Column Span 
Template 
Value Required 
LOV Type 


SQL Query 
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Value 


Bank Reconciliation Parameters 
Static Content 

Standard 

P51_CRITERIA 

Radio Group 

<b>Show</b> 

2 


Submit Page (to show data according to 
the selected option) 


Bank Reconciliation Parameters 

Yes 

Automatic 

2 

Static Values 

STATIC: Reconciled;1,Unreconciled;0 

No 

Static Value 

0 

P51_BANKS 

Select List 

<b>Select a bank</b> 

Submit Page (to refresh report regions) 

Bank Reconciliation Parameters 

Yes 

Automatic 

2 

Required 

Yes 

SQL Query 

SELECT coacode||'-'||coatitle d, coacode r 

FROM gl coa 

WHERE cocode=(select cocode from 
gl users where 
userid=:APP USER) AND 


coatype='Bank' 
ORDER BY coacode 
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21.2 Display Outstanding Opening Transactions 


Create the following interactive report region to display all the outstanding bank 
transactions that you entered in the previous chapter. In the Application Builder interface, 
click the Create Page button and select the Form option followed by Form on a Table 
with Report. Use the parameters given in Table 21-2 to complete the wizard. Note that 
when you provide a page number (on the Report Page screen) of a page that already 
exists, an interactive report is added to that page. Here, for example, an interactive report 
region will be added to page 51 along with a corresponding form on a separate page 
(page 52). All opening outstanding figures will be displayed on page 51 in an interactive 
report region. Using the edit link in this region, you can call the selected record on page 
52 where it is displayed in a form to mark it either as reconciled or as unreconciled. 
Remember, the GL_BANKS OS table has a flag column named Reconciled, which is 
attached to the radio items in the form on page 52. Also note that the form allows an 


update operation only on the Reconciled column. 


Table 21-2. Page Attributes 


Page Type Attribute 


Report 
Page 


Implementation 
Page Number 
Page Name 

Page Mode 
Region Title 
Table/View owner 
Table/View Name 


Navigation Preference 
Existing Navigation Menu 
Entry 


Report Columns 


Optional WHERE Clause 


Edit Link Image 


Value 


Interactive 

51 

Opening Outstanding 
Normal 

Opening Outstanding 
Accept the displayed value 
GL_BANKS_OS 


Identify an existing navigation menu entry 
for this page 


Utilities 


Select all columns to include in the report 
page 

cocode=(select cocode from gl 

users where userid=:APP_USER) 

AND coacode=:P51_BANKS and 
reconciled=:P51_CRITERIA 


Select any edit link image from the provided 
options 


(continued) 
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Table 21-2. (continued) 


Page Type Attribute Value 
Form Page Number 52 
Page Page Mode Modal Dialog 
Page Name Reconcile Opening 
Region Title Reconcile Opening 
Region Template Standard 
Primary Key Type Select Primary Key Column(s) 
Primary Key Column 1 SR_NO 
Source for Primary Key Existing Sequence 
Column 1 
Sequence GL_BANKS_OS_SEQ 
Form Columns Select all columns to include in the form 
page 


Data Manipulation Process Insert=No, Update=Yes, Delete=No 


Modify the Opening Outstanding interactive report region on page 51 using the 
following steps: 


1. Set Condition Type to Rows Returned and enter the following 
query in the SQL Query box. This condition will hide the 
report region when there is no record for the selected 
criterion. 


SELECT 1 FROM "“#OWNER#". "GL BANKS OS" 

WHERE cocode=(select cocode from gl users where 
userid=:APP USER) AND coacode=:P51 BANKS and 
reconciled=:P51 CRITERIA 


2. Hide the SR NO, COCODE, COACODE, and RECONCILED 
columns by setting their Type attribute to Hidden Column. 
Change the headings for the VCHDR and VCHCR columns to 
Debit and Credit and set Include Search Bar (under Attributes 
node) to No to suppress the interactive report’s search box. 


21.3 Modify Reconcile Opening Form 


Edit page 52 (the Reconcile Opening form) and modify the following items. You can 
access this form from the Opening Outstanding interactive report on page 51 to mark an 
opening outstanding transaction as reconciled. In the final step of this section, you will 
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transform the P52 RECONCILED item into a radio group with two options. Once you 
mark an entry as reconciled and submit the change, it disappears from the unreconciled 
list in the interactive report on page 51. Selecting the Reconciled radio option on page 51 
reverses the entry. 


1. Mark the P52 COCODE item as hidden. 


2. Modify the labels of the page items coacode, vhcdr, and vchcr 
to Bank Code, Debit, and Credit, respectively. 


3. Change the Type attribute of Bank Code, Remarks, Debit, and 
Credit items to Display Only. 


4. Modify the P52 RECONCILED item using the attributes listed 
in Table 21-3. 


Table 21-3. P52 RECONCILED Attributes 


Attribute Value 

Type Radio Group 

Label Clear Label box 

Number of Columns 2 

LOV Type Static Values 

Static Values STATIC: Reconcile; 1,Unreconcile;O 
Display Null Values No 


21.4 Current Transactions Region 


Edit page 51 to add another region. This region will have a tabular form to display and 
reconcile current transactions entered through vouchers. It is based on a powerful SQL 
statement that fetches complete transaction information from three relevant tables based 
on the provided criteria and related to the current company. The statement also ensures 
that the fetched transactions are neither opening nor closing entries. Closing entries have 
nothing to do with the reconciliation process. Since you have already made exclusive 
provision in the previous chapter for individual opening outstanding transactions of 
banks, opening balances are also exempt from this process. Opening balances are 

those values that you usually enter through a journal voucher when you switch to a 

new application from another system. For this application, you will create a voucher 
carrying the opening balances of accounts in Chapter 24. Note that the transaction table 
also includes a Reconciled flag column. A value of 1 in this column indicates that the 
corresponding transaction is reconciled. Create a tabular form region using Table 21-4 to 
display current bank transactions. 
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Table 21-4. Tabular Form Region Attributes 
Action Attribute Value 


Create Title Current Transactions 
Region Type Tabular Form (answer OK to the message) 
SQL Query SELECT "TD"."LINE_NO", "TM"."VCHDATE", 
"VCH"."VCHTYPE", "TM"."VCHNO", 
"TD"."VCHDESCRIPTION", 
nvI("TD"."VCHREFERENCE"'-') "VCHREFERENCE", 
"TD"."VCHDR", "TD"."VCHCR", "TD". "RECONCILED" 
FROM "GL VOUCHER" "VCH", "GL TRAN MASTER" 
"TM", "GL TRAN DETAIL" "TD" 
WHERE "TM"."COCODE"="TD"."COCODE" AND 
"TM". "TRAN NO"="TD". "TRAN NO" AND 
"TM"."VCHCODE"="VCH"."VCHCODE" AND 
"TM"."CLOSING"=0 AND 
"TM"."VCHDESCRIPTION" <> 'OPENING 
BALANCES' AND 
"TM"."COCODE"=(select cocode from gl users 
where userid=:APP USER) AND 
"TD". "COACODE"=:P51 BANKS AND 
"TD". "RECONCILED"=:P51 CRITERIA 


When you change the type of a region to a tabular form, you get a message “This will 
just create the tabular form and not the associated processes and validations. To generate 
the related processes and validations please use the Create Page wizard.” You followed the 
Create Page Wizard approach and created the interactive report on an existing page; see 
Table 21-1. This time you are using an alternative method to learn something new. 

Modify the tabular form by executing the following steps. In step 2, you change 
the Reconciled column to a check box. Initially you use this check box to reconcile 
transactions and later uncheck the same check box to reverse the reconciliation process. 


1. Expand the Columns node. Click the LINE NO column and 
set its Type to Hidden Column (saves state). 


2. Click the VCHDATE column and set Default Sequence (in the 
Sorting section) to 1. 


3. For the VCHDR and VCHCR columns, set the heading and 
column alignments to the right and apply a 5,234.10 format 
mask. 


4. Click the RECONCILED column. Set its Type to Simple 
Checkbox and enter 1,0 for Checkbox Values. This check 
box will show all the reconciled entries (in other words, 
Reconciled=1) with a tiny check mark. 


5. Enter meaningful column headings (Date, Type, Number, 
Description, Reference, Debit, Credit, and Reconcile). 
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21.4.1 Create a Button and a Process 


The tabular form is created without any DML process, which means that your changes 
will not be saved to the table. Using Tables 21-5 and 21-6, create a button and a process to 
allow submission of your reconciliations. 


Table 21-5. Button Attributes 


Action Attribute Value 
Create Button Button Name SUBMIT 
Label Save 
Region Current Transactions 
Button Position Copy 
Action Submit Page 


Create the process in Table 21-6 on the Processing tab. The tabular form called Multi 
Row Update is used to update multiple rows from a tabular form region. Here, you are 
going to update the values in the Reconciled column. 


Table 21-6. Process Attributes 


Action Attribute Value 

Create Process Name ApplyMRU 
Type Tabular Form - Multi Row 

Update 

Table Name GL_TRAN_DETAIL 
Primary Key Column LINE_NO 
Point Processing 
Tabular Form Current Transactions 
Success Message Changes saved to the table 
When Button Pressed SUBMIT 


21.5 Test Your Work 


Right now you have just two entries to test this segment, one each in the opening 
outstanding and current transactions. Execute the following steps to perform a 
reconciliation using the Bank Reconciliation option from the Utilities menu. Figure 21-1 
illustrates the three regions you created for this segment in this chapter. 
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Select the Unreconciled option in the parameters region 
followed by ABN Amro bank from the banks list. The page 
gets refreshed and shows the two entries in their respective 
regions. 


Start the reconciliation by clicking the edit link for the entry 
appearing in the Opening Outstanding region. This will open 
page 52 with the selected record. Select the Reconcile option 
from the radio group and click Apply Changes to mark the 
opening outstanding entry as reconciled. You are taken back 
to page 51 where the entry disappears. 


On page 51, switch the Show option to Reconciled. The 
entry reappears in its region, but this time it is displayed as a 
reconciled entry. You can reverse it using the same edit link. 
Go ahead and test this functionality. 


To reconcile current transactions, switch the Show option on 
page 51 back to the Unreconciled, click the check box in the 
Reconcile column for the sole entry appearing in the Current 
Transaction region, and click the Save button. Once again the 
entry will vanish from your screen and can be reinstated by 


removing the check using the Reconciled option, as you did in 


the previous step. 


Bank Reconciliation Parameters ——® Parameters Region 





Show ©) Reconciled © Unreconciled 


Select abank * | 30200300001-ABN Amro Bank 


Opening Bank Transactions Region 


Remarks Debit 
Recerved chg @ 65032 S.A. Gacel 150,000.00 
Paid chg & 123456 to LY. Corporation 0.00 


Current Transactions ——& Curent Transactions Region 


Credit 


0.00 


25,000.00 





Date al 


01-JUL-2015 


Apply Changes | 


Type Number Description Reference Debit Credit Reconcile 


BPW 1 Paid to AB. Enterprises vide invoice # 798345 - 0 


Figure 21-1. Three regions 
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21.6 Summary 


The bank reconciliation process helps you find discrepancies between your books of 
accounts and your bank statement. After completing this process, you call the bank 
reconciliation report (created in the next chapter) that shows balances from both sides 
along with outstanding transactions (if any). 
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Even after reconciling your ledger entries with those appearing in the bank statement, 
there might still be some unsettled transactions on both sides. For example, say a check 
was issued to a vendor that doesn’t appear in the bank statement. Although it was 
recorded in the application, for some reason it was not presented to the bank in due 
course. Similarly, say the bank statement reports a credit amount deposited directly by 
one of your customers that you were not aware of. In the latter case, accountants prepare 
a receipt voucher to incorporate and reconcile the credit. For the former case, you have 
to wait until the check appears in a subsequent bank statement. After completing the 
reconciliation process, the application produces a report that shows the current ledger 
balance and a calculated bank statement balance, with some unsettled transactions 
(such as unpresented checks). The two balances should match, if there are no more 
outstanding figures on either side. 


22.1 The Bank Reconciliation Report Table 


In a similar way to the trial balance report, the bank reconciliation report is based on 
atable: gl reconcile report. Reconciliation reports are also stored for each user 
individually. The table also stores report parameters for display on the report. 


BANK RECONCILIATION REPORT TABLE 


CREATE TABLE gl reconcile report 

(srno NUMBER, userid VARCHAR2(50), coname VARCHAR2(50), reportdate DATE, 
coacode VARCHAR2(11), 

coatitle VARCHAR2(50), monthyear VARCHAR2(14), wchdate DATE, uchtype 
VARCHAR2(6), vchno NUMBER(10), vchdescription VARCHAR2(150), vchreference 
VARCHAR2(25), amount NUMBER(15,2)) 
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22.2 Create the Parameters Form 


As usual, create a blank page using Table 22-1 that will carry two regions: Parameters and 


Interactive Report. 


Table 22-1. Parameters Form Attributes 


Action 


Create Blank Page 


Create Region 


Create Page Item 
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Attribute 


Page Number 
Name 

Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation 
Menu Entry 


Title 


Type 
Template 
Name 
Type 
Label 


Region 


Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 

Type (LOV) 

SQL Query 


Value 


74 

Bank Reconciliation Report 
Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation menu 
entry for this page 


Reports 


Bank Reconciliation Report 
Parameters 


Static Content 
Standard 

P74_BANK 

Select List 

<b>Select a bank</b> 


Bank Reconciliation Report 
Parameters 


Yes 
Automatic 
2 
Required 
Yes 


SQL Query 
SELECT coacodel|'-'||coatitle d, 
coacode r FROM 
gl coa 
WHERE cocode=(select cocode from 
gl users where 
userid=:APP USER) 
AND 
coatype='Bank' 
ORDER BY coacode 
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Action Attribute 

Create Page Item Name 
Type 
Label 
Region 
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Value 


P74 REPORTDATE 
Date Picker 
<b>As On</b> 


Bank Reconciliation Report 
Parameters 


Label Column Span 2 


Template Required 
Value Required Yes 
Create Button Button Name Display 
Label Display 
Region Bank Reconciliation Report 
Parameters 
Button Position Copy 
Action Submit Page 
Create Button Button Name Print 
Label Print 
Region Bank Reconciliation Report 


Button Position 


Action 


Parameters 


Copy 
Submit Page 


22.3 Create the Interactive Report 


Using Table 22-2, create an interactive report to produce the onscreen version of the 
reconciliation report. Just like the trial balance report, this one too is based on a SELECT 
statement that fetches the report of the current user from the table GL RECONCILE REPORT. 
The table fetches the corresponding data through a process created in the next section. 


Table 22-2. Interactive Report Attributes 


Action Attribute 


Create Region Title 
Type 
SQL Query 


Value 


Bank Reconciliation Report 
Interactive Report 


SELECT * FROM gl reconcile report 
WHERE userid=:APP USER 
ORDER BY srno 
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22.4 Create the Reconciliation Report 
Generation Process 


Create a process as listed in Table 22-3 to generate the reconciliation report. 


Table 22-3. Process Attributes 


Action Attribute Value 

Create Process Name Generate Reconciliation Report 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter22\Generate 

Reconciliation Report.txt 

Point Processing 
Condition Type Request is contained in Value 
Value Display,Print 


22.5 Format the Reconciliation Report 


Execute the following steps to format the interactive report: 


1. Hide the SRNO, USERID, CONAME, REPORTDATE, 
COACODE, and COATITLE columns. 


2. Apply anumeric format mask to the Amount column. 


3. Modify column headings and give them suitable names, such 
as Period, Date, Type, Number, Description, Reference, and 
Amount. 


4. Run the reconciliation report from the Reports menu and 
select the values listed in Table 22-4 in the parameters form. 


Table 22-4. Selecting Parameters 


Parameter Value 
Select a bank ABN Amro 
As On Select the date you generated the voucher in Chapter 14 


5. Create a highlight rule to highlight ledger and bank balances 
using the two conditions listed in Table 22-5. The two expressions 
appearing in this table were added to the report table through the 
PL/SQL process, defined on the previous page. 
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Table 22-5. Highlight Rule 
Rule Name Column Operator Expression 
Bank’s Balance Description = Balance as per bank 
statement 
Ledger Balance Description = Balance as per Ledger 


6. Save the report by selecting As Default Report Settings 
followed by the Primary option. 


22.6 Generate the PDF Report 


Follow the instructions mentioned in the preceding chapters to create a PDF version 
of the report using the attributes in Table 22-6. Here you will add a “Group by” column 
(monthyear) to group the report according to different financial periods. Look at 
Figure 22-1 where the two outstanding transactions are reported separately in their 


respective months. 


Table 22-6. Report Query Attributes 


Attribute 


Report Query Name 
SQL Query 


XML File Name 


Columns in RTF Template 
Table 


Group by selected in RTF 
Template 


Data already sorted 
Break 

RTF File Name 
Branch Name 


Branch Request 


Value 


reconciliation_report 


SELECT * FROM gl reconcile report 
WHERE userid=:APP USER 
ORDER BY srno 


reconciliation_report.xml 


monthyear, vchdate, vchtype, vchno, vchdescription, 
vchreference, and amount 


monthyear 


Checked (already sorted in the above SQL query) 
No Break 

reconciliation_report.rtf 

Run Reconciliation Report 


PRINT_REPORT=reconciliation_report 
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22.7 Test Your Work 


Run this segment first by keeping the two entries (opening outstanding and current 
transaction) as unreconciled and watch the output. Then mark both entries as reconciled 
and rerun the report to observe the impact. In the former test, the two balances (“Balance 
as per Ledger” and “Balance as per bank statement”) will yield different figures, but when 
you reconcile both entries, the two should display the same figure. Figure 22-1 shows the 
parameters form and the report output. 





PDF Output 


Select a bank: * J0200300001-48N Arme Bank 


Mün — 31-Aug-2015 


[al 


ABC & Company 
Bank Reconciliation Statement 


Bank Account: 30200300001 - ABN Amro Bank 
As On: 31-AUG-2015 





Reference 





Balance as per Ledger 21 000.00 

Received chq # 65832 S.A. Gacel I :-190,.000.00 : 

1 Y : : 

Paid chg & 123456 to XY. Corporation Ledger Balance As On 31-Aug-2015 : 25,000.00 : 

July-2015 : 
O1-JUL-2015  BPV-1 Paid to A.B. Enterprises vide invoice # 78345 Outstanding : 3,000.00 : 


Transactions 


August-2015 : 
O1-AUG-2015  BPV-1 Paid to XY Corporation against invoice # 987654 : 1,000.00 : 
vide chq # 123456 : 


Calculated Bank Balance 


Balance as per bank statement L— 125,000.00 


Figure 22-1. Parameters form and the report output 


22.8 Summary 


Bank reconciliation is a monthly activity to keep track of the bank balance and 
outstanding transactions. The report you created in this chapter reveals both. After 
completing the interfaces in the previous chapters that deal with the day-to-day 
accounting tasks, the next couple of chapters deal with the closing process. 
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Month Closure 





It is common practice for organizations to close those fiscal periods for which they are 
sure to receive no more data. This process is usually referred to as month closure. The 
main purpose of this process is to prevent data manipulation in a closed month. In this 
chapter, you will create this feature first by creating some procedures to mark a fiscal 
period as closed and then modifying the main transaction interfaces to apply the desired 
data security. 


23.1 


Create Page and Page Items 


Using Table 23-1, create a blank page along with its items for this feature. The select list is 


populated with the 12 fiscal periods of the current company. 


Table 23-1. Page Attributes 


Action 


Create Blank 
Page 


Create Region 


O Riaz Ahmed 2016 


Attribute 


Page Number 
Name 

Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 
Entry 


Title 
Type 
Template 


Value 


96 

Month Closure 

Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation menu 
entry for this page 


Closing 


Month Closure 
Static Content 


Standard 


(continued) 
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Table 23-1. (continued) 


Action 


Create Page Item 


Create Button 


Attribute 

Name 

Type 

Label 

Page Action on Selection 
Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 

Type (LOV) 

SQL Query 


Button Name 
Label 

Region 

Button Position 


Action 


Value 


P96 COMONTH 

Select List 

<b>Select a month:</b> 

Submit Page 

Month Closure 

Yes 

Automatic 

2 

Required 

Yes 

SQL Query 

SELECT comonthname d, comonthid r 

FROM gl fiscal year 

WHERE cocode=(select cocode from 
gl users where 
upper(userid)= 
upper(: APP USER)) 
AND 


coyear=(select coyear from 
gl users where 


upper(userid)= 
upper(:APP USER)) 

ORDER BY comonthid 

Close Month 

Close Month 

Month Closure 

Copy 

Submit Page 


23.2 Show Unverified Vouchers 


Using Table 23-2, add an interactive report region to display a list of unverified vouchers. 
It is being added as a precautionary measure to inform the user about the vouchers that 
are unverified in the system prior to executing the month closure process. It is good 
practice to verify all vouchers before closing a month, because vouchers cannot be 


modified after the month has been closed. 
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Table 23-2. Interactive Report Region Attributes 


Action Attribute Value 
Create Region Title Unverified Vouchers 
Type Interactive Report 
SQL Query SELECT VCH.vchtype, TM.vchdate, TM.vchno, 
TM.vchdescription 


FROM gl voucher VCH, gl tran master TM 
WHERE vchverified='N' AND VCH.vchcode=TM. 
vchcode AND 
cocode=(select cocode from gl_users where 
upper(userid)=upper 
(:APP_USER)) AND 
coyear=(select coyear from gl_users where 
upper(userid)=upper 
(:APP_USER)) AND 
comonthid=:P96_COMONTH 


Add meaningful headings to the report’s columns, as shown in Figure 23-1. Run 
the page from the Month Closing option in the main menu. Select the first month (July) 
from the select list. You'll see the payment voucher you created in Chapter 14, if it is still 
unverified. 





Select a month: s July $ 


Unverified Vouchers 





Type Date Number Description 


BP 01-JUL-2015 1 Paid to A.B. Enterprises vide invoice # 78345 


Figure 23-1. Unverified payment voucher 


23.3 Add Validation 


Create the validation listed in Table 23-3 to check whether the selected month is not 
already closed. 
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Table 23-3. Validation Attributes 


Action 


Create Validation 


Attribute 
Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


Value 


Check Month Closure 


PL/SQL Function (returning Error 
Text) 


Book CodeVChapter23VCheck Month 
Closure.txt 


Month is already closed 
Close Month 


23.4 Close Month Process 


The process in Table 23-4 will mark the selected month as closed. 


Table 23-4. Process Attributes 


Action 


Create Process 
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Attribute 
Name 


Type 
PL/SQL Code 


Point 
Success Message 
Error Message 


When Button Pressed 


Value 


Close Month 
PL/SQL Code 


UPDATE gl fiscal year SET month 
closed=1 
WHERE cocode=(select cocode from 
gl users 
where upper(userid) 
= upper(:APP USER)) 
AND 
coyear=(select coyear from 
gl users 
where upper(userid) 
= upper(:APP USER)) 
AND 
comonthid=:P96 COMONTH; 


Processing 
Month closed successfully 
Could not close the selected month 


Close Month 


CHAPTER 23 = MONTH CLOSURE 


Rerun the segment and click the Close Month button. You should see the success 
message. Click the button again. This time you'll get a message: “Cannot proceed with 
this process because the selected month is already marked as closed.” The message 
confirms that the month has been marked as closed. 


23.5 Hide Buttons 


After marking a month as closed, no one is allowed to manipulate data in that month. 
Implement this security by following the instructions in Tables 23-5 to 23-7. The first one 
will hide the CREATE button on page 42 (if the month is marked as closed) to disallow the 
creation of new vouchers. Edit page 42 (Vouchers) and add the hidden item in Table 23-5, 


which stores the closing status of the current month. 


Table 23-5. Item and Button Attributes 


Action 


Create Page 
Item 


Modify Button 


Attribute 

Name 

Type 

Value Protected 
Sequence 
Region 

Source Type 
SQL Query 


Source Used 


Button Name 
Condition Type 
Item 


Value 


Value 


P42, MONTHCLOSED 

Hidden 

Yes (default) 

35 (to place it after P42_COMONTHID) 
Vouchers 

SQL Query (return single value) 


SELECT month closed FROM gl fiscal year 
WHERE cocode=(select cocode from gl users 
where 
upper(userid)=upper 
(:APP USER)) AND 
coyear=(select coyear from gl users 
where 
upper(userid)=upper 
(:APP USER)) AND 
comonthid=(select comonthid from 
gl users where 
upper(userid)=upper(: APP USER)) 


Always, replacing any existing value in session 
state 


CREATE 
Item = Value 


P42 MONTHCLOSED 


0 (the button will be visible only when the value of 
P42 MONTHCLOSED is zero) 
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If you run the Vouchers page now, you won't see the CREATE button, which means 
that the users cannot create a new voucher in a closed month. In the same way, you 
also have to hide three more buttons on the Voucher Details page (page 43). These are 
DELETE, SAVE, and APPLY_CHANGES_MRD. Table 23-6 shows the procedure to prevent 


amendments on page 43. 


Table 23-6. Preventing Amendments 


Action Attribute Value 
Create Page Item Name P43 MONTHCLOSED 
Type Hidden 
Value Protected Yes (default) 
Region Enter Voucher 
Source Type SQL Query (return single value) 
SQL Query Repeat the query specified for 


P42 MONTHCLOSED item 


Source Used Always, replacing any existing value in 
session state 


Now modify the PL/SQL function defined as a condition for the three buttons, as 
shown in Table 23-7. 


Table 23-7. PL/SQL Function Modifications 


Action Attribute Value 
Modify Buttons Button Name DELETE, SAVE, and APPLY CHANGES _ 
MRD 
PL/SQL Function Body begin 
(under Condition) if :P43 TRAN NO IS NOT NULL and 


:P43 CLOSING=0 and 
:P43 VCHVERIFIED="N" and :P43 
MONTHCLOSED=0 then 
return true; 

else 
return false; 

end if; 

end; 


23.6 Summary 


After executing the month closing process, users cannot add, modify, or delete any 
voucher in a closed month. This way, the historical data is protected from any kind of 
manipulation. In the next chapter, you will create two year-end processes to close a fiscal 
year either temporarily or permanently. 
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Year-End Processes 





The year-end process consists of two options: temporary and permanent. The temporary 
year-end process performs two actions: first it generates the next fiscal year, and then it 
transfers the balances of accounts from the closing year to the new fiscal year. When you 
select this option from the Closing menu, the system asks you to provide a profit and loss 
account from the chart of accounts, which is used to transfer the difference of revenues 
and expenses. 

The second option is the permanent year-end process, which has two additional 
tasks: first it checks the closure status of the 12 fiscal periods, and then it marks the year 
as permanently closed. After the successful completion of this process, you can view the 
transactions performed in that year and generate reports, but you cannot add, amend, or 
delete anything. 


24.1 Enter Opening Balances 


If you are running a business, then you will have some accounts with balances. When you 
upgrade your general ledger application, these balances act as opening balances in the 
new application. In this section, you'll incorporate these balances in your application to 
test the year-end process. It is assumed that you have created a fiscal year (2015) for the 
ABC & Company, which starts from July 1, 2015, and ends June 30, 2016. From the Select 
menu, change your working period to June, in other words, the last accounting period. 
Enter the opening balances of accounts in a JV type voucher using Table 24-1. 


© Riaz Ahmed 2016 211 
R. Ahmed, Cloud Computing Using Oracle Application Express, 
DOI 10.1007/978-1-4842-2502-8 24 


CHAPTER 24 ™ YEAR-END PROCESSES 


Table 24-1. Opening Balances of Accounts 


Voucher Type: ADJ Voucher Number: 1 


Description: Opening Balances 


Account Code 


10100100001 


10100100002 


10100300001 


20100100001 


20100100002 


20100200001 


20100200002 


20100300001 


20100400002 


20100400001 


20100500001 


20100500002 


20200200001 


30100100001 


30100100002 


30100200002 


30100300001 
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Account Title 


M.H. Thomson 


A.F. Stevens 


Unappropriate Profit/Loss 


A.B. Enterprises 

X.Y. Corporation 
Salaries Payable 
Utilities Payable 

ABN Amro Bank (STF) 
Caponi SRL 

HNH International 
Motor Car (AD) 
Delivery Truck (AD) 
Staff Gratuity Payable 
Office Building 
Warehouse 
Computers 


Motor Car 


Voucher Date: 30-JUN-2016 


Description 


Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 
Opening 
Balance 


Debit Credit 
50,000 
50,000 

20,500 

10,000 
40,000 
8,000 
4,000 
12,000 

6,000 
3,000 
4,500 
5,000 
20,000 

100,000 

100,000 

10,000 

30,000 
(continued) 
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Account Code Account Title Description Debit Credit 
30200100001 Stock - Raw Material Opening 1,000 
Balance 
30200200001 S.A. Gacel Opening 2,000 
Balance 
30200200002 BV.Heliform Opening 100,000 
Balance 
30200300001 ABN Amro Bank Opening 150,000 
Balance 
40100100001 Export Sales Opening 175,000 
Balance 
50100100001 Stock Consumption - Raw Opening 15,000 
Material Balance 
50200100001 Staff Salaries Expense Opening 8,000 
(Admin) Balance 
50200100002 Gratuity Expense Opening 12,000 
Balance 
50200200001 Electricity Expense Opening 1,500 
Balance 
50200300001 Depreciation - Motor Car Opening 2,000 
Balance 
50300200001 Depreciation Opening 3,500 
Expense - Delivery Truck Balance 
Total 471,500 471,500 


24.2 Temporary Year-End (TYE) 


Up until now you have created each application feature in a separate chapter. Though the 
two year-end segments are listed individually under the Closing menu, you will create 
both of them in this chapter. Perform the following steps to first create the temporary 
year-end segment. 


24.3 Create the Page and Page Items 


The temporary year-end process will receive two values from the user: Voucher Type 
and Profit and Loss Account. This closing process will first create a new fiscal year. If 
one already exists, for example, you execute this process for a second time, this step will 
be skipped. After creating the new fiscal year, the year-end process generates a closing 
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voucher of the selected type to close all revenues and expenses into an account called 
the Profit and Loss Account. For this purpose, the segment receives the two parameters 
mentioned earlier. Create a new blank page with page items in Table 24-2. 


Table 24-2. Page Attributes 


Action 


Create Blank Page 


Create Region 


Create Page Item 


Create Page Item 
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Attribute 


Page Number 
Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu 
Entry 


Title 

Type 

Template 
Name 

Type 

Label 

Region 

Label Column Span 
Template 
Value Required 
LOV Type 

List of Values 
Name 

Type 

Label 

Region 

Label Column Span 
Template 
Value Required 
LOV Type 

List of Values 


Value 


93 
Temporary Year-End 
Normal 


- do not use breadcrumbs on 
page - 

Identify an existing navigation 
menu entry for this page 


Closing 


Temporary Year-End 
Static Content 
Standard 

P93 VCHCODE 
Select List 

<b>Select a voucher type:</b> 
Temporary Year-End 
2 

Required 

Yes 

Shared Component 
VOUCHER TYPES 
P93 PLACCOUNT 
Popup LOV 

<b>P&L Account:</b> 
Temporary Year-End 
2 

Required 

Yes 

Shared Component 
COA Entry Level 


(continued) 


Table 24-2. (continued) 


Action Attribute 


Button Name 
Label 


Region 


Create Button 


Button Position 


Action 
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Value 


GO 
Execute TYE 
Temporary Year-End 


Copy 
Submit Page 


24.4 Create a Validation 


Add the validation in Table 24-3 to check that the current year is not permanently closed. 
In such a case the TYE process will not execute. 


Table 24-3. Validation Attributes 
Action Attribute 


Name 


Type 


Create Validation 


PL/SQL Function 


Error Message 


When Button Pressed 


Value 


Check Permanent Year Closure 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter24\Check 
Permanent Year Closure.txt 


Year is permanently closed 


GO 


24.5 Generate the Fiscal Year Process 


The process in Table 24-4 creates a new fiscal year when you execute the TYE process for 


the first time. 


Table 24-4. Process Attributes 
Action Attribute 


Name 


Type 
PL/SQL Code 


Create Process 


Point 


When Button Pressed 


Value 


Generate Fiscal Year 
PL/SQL Code 


Book_Code\Chapter24\ Generate Fiscal 
Year.txt 


Processing 


GO 


215 


CHAPTER 24 ™ YEAR-END PROCESSES 


24.6 A Process to Generate a Closing Entry 


The process in Table 24-5 will close all revenue and expense accounts into a profit and 
loss account that you will select as the second parameter. 


Table 24-5. Process Attributes 


Action Attribute Value 
Create Process Name Generate Closing Entry 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter24\Generate 
Closing Entry.txt 
Point Processing 
Success Message Temporary year-end process executed 
successfully 
Error Message Could not execute the TYE process 


When Button Pressed GO 


Note The TYE process must be executed to update the profit and loss account 
whenever you manipulate data in the previous fiscal year. 


24./ Test Your Work 


Invoke the page from the Temporary Year End option in the Closing menu, as shown 

in Figure 24-1. Select a JV type voucher from the first drop-down list. For the second 
parameter, select the account titled “Unappropriated Profit/Loss account” from the chart 
of accounts and click the Execute TYE button. You should see a success message after the 
execution of the process. Now click the Transactions menu and select the voucher type 
you chose to store the closing entry. You'll see two vouchers in the vouchers report list. 
The first voucher is the one you entered through Table 24-1 to record opening balances, 
while the second one (numbered 9999999999) is created by the TYE process to close 
expense and revenue accounts. Note that this voucher is marked as both verified and 
posted, which means you cannot modify or delete its contents. Click the edit link next to it 
and notice that all the data manipulation buttons have disappeared from the details page. 
The only button you should see is the Cancel button that takes you back to the reports 
page. Also note that the closing voucher is reflected in the ledger report in the year it was 
created. For example, if you run a ledger report for an expense or a revenue account, 
you ll see this voucher. The first task that this process performed was the creation of a new 
fiscal year. To verify this, click the Select menu and expand the Year select list. Now there 
will be two years: 2015 and 2016. 
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24.8 Permanent Year End (PYE) 


This is the second year-end process, which prevents any kind of data manipulation 
operation in a year marked as permanently closed. Execute the following sections to 


create this process. 


24.9 Create the Page and Page Items 


Using Table 24-6, create a blank page and items to create the PYE process. 


Table 24-6. Page Attributes 


Action Attribute 
Create Blank Page Page Number 
Name 
Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 


Entry 
Create Region Title 

Type 

Text 


Template 


Create Button Button Name 
Label 
Region 
Button Position 


Action 


Value 


97 

Permanent Year-End 

Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation 
menu entry for this page 


Closing 


Permanent Year-End 
Static Content 


<p>&nbsp&nbsp Before you 
proceed, make sure that:<br/> 
&nbsp&nbsp You have closed all 12 
fiscal periods.<br/> 

&nbsp&nbsp You have executed 
Temporary Year End process 
recently to register latest closing 
entries.<br/> 

<b>&nbsp&nbsp Click Go to 
proceed!</b></p> 


Standard 

GO 

GO 

Permanent Year-End 
Copy 

Submit Page 


217 


CHAPTER 24 ™ YEAR-END PROCESSES 


24.10 Create the Validations 


Create the validations in Table 24-7 to fully execute the PYE process. The first validation 
checks whether the current year is not already marked as permanently closed. For this 
process to be successful, it is necessary to first close all 12 periods. The second validation 
ensures that all 12 fiscal periods have been marked as closed. The final validation needs 


you to execute the TYE process to record the latest closing entries. 


Table 24-7. Validation Attributes 


Action 


Create Validation 


Create Validation 


Create Validation 


24.11 


Attribute 
Name 


Type 


PL/SQL Function 


Error Message 
When Button Pressed 


Name 


Type 


PL/SQL Function 


Error Message 
When Button Pressed 


Name 


Type 


PL/SQL Function 


Error Message 


When Button Pressed 


Value 


Permanent Year Closure 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter24\Permanent 
Year Closure.txt 


Year is already permanently closed 
GO 
Check Months Closure 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter24\Check 
Months Closure.txt 


Fiscal months are not closed 
GO 
Check Temporary Year End Date 


PL/SQL Function (returning Error 
Text) 


Book_Code\Chapter24\Check 
Temporary Year End Date.txt 


Execute Temporary Year End 
process for fresh closing entries 


GO 


A Process to Close the Year Permanently 


After passing the validations, the currently selected year is marked as permanently closed 
by the process mentioned in Table 24-8. 
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Table 24-8. Process Attributes 


Action Attribute Value 
Create Name Close Year Permanently 
PROCESS Type PL/SQL Code 
PL/SQL Code UPDATE gl fiscal year SET year closed=1 


WHERE cocode=(select cocode from gl users 
where upper(userid) = upper 
(:APP_USER)) and 
coyear=(select coyear from gl_users 
where upper(userid) = upper 
(:APP_USER)); 


Point Processing 
Success Message Permanent year end process executed successfully 
Error Message Could not execute the PYE process 


When Button Pressed GO 


24.12 Test Your Work 


Run the Permanent Year End segment from the Closing menu; you will see the PYE page, 

as illustrated in Figure 24-1. Hit the Go button. The process will not execute because the 12 
fiscal periods are open and must be marked as closed prior to executing this process. Do 

so by closing all the periods individually from the Month Closing option under the Closing 
menu and execute this process again. If you ran the TYE process on the same date, the PYE 
process should execute successfully in this attempt; otherwise, you will get another message 
to execute the TYE process to register fresh closing entries. After successful execution of this 
process, transaction manipulation actions are permanently prevented in the current year. Of 
course, you can view the data through the voucher interface and the reports. 


Tem porary Year End Execute TYE | 





$ 
Select a voucher type: AD) $ 


+ 
P&L Account: 10100300001-Unappropnated Profit/Loss a 


| Permanent Year End 





Before you proceed, make sure that: 

You have closed all 12 fiscal periods. 

You have executed Temporary Year End process recently to register latest dosing entnes. 
Click Go to proceed! 


Figure 24-1. Year End Pages 
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24.13 Summary 


After executing the TYE process, you get the next fiscal year. Also, the closing balances of 
assets, liabilities, and capital accounts are transferred to the next fiscal year. In the next 
couple of chapters, you will learn how to develop a budget module. 
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CHAPTER 25 


Budget Allocation 





A budget is a useful tool to keep spending under control. Every good organization uses 
this tool to keep an eye on its activities. After allocating a budget to an account, it is 
compared to the actual expenditure to make sure there is no overspend of money. In the 
initial year, budgets are allocated manually because of the absence of historical data. 

In subsequent years, you have two options to define budgets: you can reuse last year’s 
budget or allocate last year’s actual spend to act as the current year’s budget. 


25.1 Budget Allocation Table 


Budgets will be saved in the following table for each company, year, and account: 


BUDGET ALLOCATION TABLE 


CREATE TABLE gl budget 

(cocode number constraint fk_budget1 References GL Company (Cocode) 

NOT NULL, coyear number(4), coacode varchar2(11) NOT NULL, coanature 
varchar2(11) NOT NULL, cccode varchar2(5), budget amount1 number(15,2), 
budget amount2 number(15,2), budget amount3 number(15,2), budget amount4 
number(15,2), budget amount5 number(15,2), budget amounté6 number(15,2), 
budget amount7 number(15,2), budget amount8 number(15,2), budget amount9 
number(15,2), budget amount10 number(15,2), budget amount11 number(15,2), 
budget amount12 number(15,2), criterion number(1), constraint fk budget2 
Foreign Key (cocode,coacode) References GL COA); 


O Riaz Ahmed 2016 221 
R. Ahmed, Cloud Computing Using Oracle Application Express, 
DOI 10.1007/978-1-4842-2502-8 25 


CHAPTER 25 = BUDGET ALLOCATION 


25.2 Create the Page and Parameters Form 


Using Table 25-1, create a blank page and add components to it. The two hidden items 
defined underneath will store the current company’s code and year to properly save the 
budget. Budgets are mainly allocated according to the nature of the account, so you also 
add a select list to display the five natures from the chart of accounts. 


Table 25-1. Page Attributes 


Action Attribute Value 
Create Page Number 55 
Blank Page Name Budget Allocation 
Page Mode Normal 
Navigation Preference Identify an existing navigation menu entry for 
this page 
Existing Navigation Menu Utilities 
Entry 
Create Title Budget Allocation Parameters 
Region Type Static Content 
Template Standard 
Create Name P55_COCODE 
Page item Type Hidden 
Source Type SQL Query (return single value) 
SQL Query SELECT cocode FROM gl_users WHERE 
userid = :app_user 
Source Used Always, replacing any existing value in session 
state 
Create Name P55_COYEAR 
Page Item Type Hidden 
Source Type SQL Query (return single value) 
SQL Query SELECT coyear FROM gl_users WHERE userid 
= :app_user 
Source Used Always, replacing any existing value in session 
state 


(continued) 
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Action 


Create 
Page Item 


Attribute 

Name 

Type 

Label 

Page Action on Selection 
Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 

LOV Type 


SQL Query 
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Value 


P55 COANATURE 

Select List 

<b>Nature of Account:</b> 
Submit Page 

Budget Allocation Parameters 
Yes 

Automatic 

2 

Required 

Yes 

SQL Query 


SELECT DISTINCT coanature d, coanature r 
FROM gl_coa 
WHERE cocode=(select cocode from gl users 
where userid=:APP USER) 


The three options defined in the Radio Group page item (Table 25-2) help users 
evaluate which type of budget was saved for the selected nature of account. For example, 
if a budget was created for a particular nature using the first option (User Defined), 
then whenever the user selects that nature, the first type is highlighted. After selecting 
an account nature, you click one of the three provided buttons (User Defined, Last Year 
Budget, or Last Year Actual in Table 25-2) to specify what type of budget you want to 
allocate. These buttons are associated with respective processes defined using Table 25-5 
later in the chapter. 
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Table 25-2. Item and Button Attributes 
Action Attribute 
Create Page Item Name 
Type 
Label 
Number of Columns 
Region 
Start New Row 
Column/Column Span 
Label Column Span 
LOV Type 


Static Values 


Display Null Value 
Source Type 
SQL Query 


Source Used 


Default Type 
Static Value 
Create Button Name 
Label 
Region 
Position 
Action 
Create Button Name 
Label 
Region 
Position 


Action 
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Value 


P55 CRITERIA 

Radio Group 

<b>Type of Budget:</b> 

3 

Budget Allocation Parameters 
Yes 

Automatic 

2 

Static Values 


STATIC:1-User Defined;1,2-Last Year 
Budget;2,3-Last Year Actual;3 


No 
SQL Query (return single value) 


SELECT DISTINCT criterion FROM 
gl budget 

WHERE cocode=:P55 COCODE AND 
coyear=:P55 COYEAR AND 
coanature=:P55 COANATURE 


Always, replacing any existing value 
in session state 


Static Value 

1 

User_Defined 

User Defined 

Budget Allocation Parameters 
Copy 

Submit Page 
Last_Year_Budget 

Last Year Budget 

Budget Allocation Parameters 
Copy 


Submit Page 
(continued) 


Table 25-2. (continued) 

Action Attribute 

Create Button Name 
Label 
Region 
Position 


Action 
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Value 

Last Year Actual 

Last Year Actual 

Budget Allocation Parameters 


Copy 
Submit Page 


25.3 Create a Tabular Form 


After selecting an account nature, you click one of the three buttons created in the previous 
section. The processes associated with these buttons execute and populate the table 

GL BUDGET with respective accounts and values. To browse the result and to manipulate the 
values, you need to create a tabular form. Click the Create Page button in the Application 
Builder interface to create the tabular form on page 55. Select the Form option followed by 
Tabular Form in the initial wizard screens. Note that setting page to 55 creates the tabular 


form on the existing page 55. Use Table 25-3 to complete the tabular form region. 


Table 25-3. Tabular Form Region 
Action Attribute 


Create Table Owner 
Region Table Name 
Select Columns 
Allowed Operations 
Primary Key Type 
Updatable Columns 
Page 
Page Name 
Page Mode 
Region Title 


Buttons and Branching 


Value 


Accept the displayed value 

GL BUDGET 

Select all columns 

Update, Insert, and Delete 
Managed by Database (ROWID) 
All columns 

55 

Budget Allocation 

Normal 


Allocate budget for &P55 
COANATURE. accounts 


Accept all default values 
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Modify the new tabular form region to incorporate the following amendments: 
1. Adda WHERE clause to the region's SQL query as follows to 
display the data of the current company, year, and selected 
nature: 


SELECT “ROWID", “COCODE", “COYEAR", “COACODE", "COANATURE", 
“CCCODE" , "BUDGET AMOUNT1", 
"BUDGET AMOUNT2", “BUDGET AMOUNT3", “BUDGET AMOUNT4" , 
"BUDGET AMOUNTS", 
"BUDGET AMOUNT6", “BUDGET AMOUNT7", “BUDGET AMOUNT8", 
"BUDGET AMOUNT9", 
"BUDGET AMOUNT10", “BUDGET AMOUNT11", “BUDGET _ 
AMOUNT12" , "CRITERION" 
FROM ‘“#OWNER#"."GL_ BUDGET" 
WHERE cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coanature=:P55 COANATURE 


2. Modify the attributes listed in Table 25-4 for the COACODE 
column. 


Table 25-4. COACODE Attributes 


Attribute Value 

Type Popup LOV (shows displays value) 
Heading Account 

LOV Type Shared Component 

List of Values COA ENTRY LEVEL 

Width 35 

Default Sequence (under Sorting) l 


3. Set the Type attribute to Hidden Column (saves state) for 
the COCODE, COYEAR, COANATURE, CCCODE, and 
CRITERION columns. 


4. Modify the COCODE column. Set its Default Type value to 
Item and enter P55 COCODE in the Item attribute. Repeat 
the same for the COYEAR (P55 COYEAR), COANATURE 
(P55 COANATURE), and CRITERION (P55 CRITERIA) 
columns. This way, the four table columns will inherit values 
from the corresponding page items. 


5. Set headings for the 12 Budget Amount columns as Month I, 
Month 2, and so on, as shown in Figure 25-1 later in this 
chapter. 
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Using Table 25-5, add three processes to handle the allocation. Each process is associated 
with a particular button to populate the GL BUDGET table. 


Table 25-5. Process Attributes 


Action 


Create Process 


Create Process 


Create Process 


Attribute 
Name 


Type 
PL/SQL Code 


Point 

When Button Pressed 
Name 

Type 

PL/SQL Code 


Point 

When Button Pressed 
Name 

Type 

PL/SQL Code 


Point 


When Button Pressed 


25.5 Test Your Work 


Budgets are usually applied to expenses to keep them under control. However, the 
segment created in this chapter can be used to set a budget for any nature of account. 
Let's see how a budget is defined. 


Value 


User Defined Budget 
PL/SQL Code 


Book_Code\Chapter25\ User Defined 
Budget.txt 


Processing 
User_Defined 
Last Year Budget 
PL/SQL Code 


Book_Code\Chapter25\Last Year 
Budget.txt 


Processing 
Last_Year_Budget 
Last Year Actual 
PL/SQL Code 


Book_Code\Chapter25\Last Year 
Actual.txt 


Processing 


Last_Year_Actual 


1. Now that you have two fiscal years (2015 and 2016) for ABC & 
Company, switch to the new fiscal year (2016) from the select 
menu. Selecting a period is not necessary for this segment. 


2. Invoke the Budget Allocation segment from the Utilities menu. 
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3. Set Nature of Account to Assets and click the User Defined 
button. The process associated with this button will populate 
the tabular form with all asset accounts from the chart 
of accounts. Note that the first month column (Month 1) 
represents the first month of the fiscal year. In the current 
scenario, the first month represents July, the second month 
represents August, and so on. Enter some numeric figures 
in some month columns for different accounts and click the 
Apply Changes button to save the budget values. Switch the 
nature of account to some other nature and then back to the 
Assets nature. You'll see the saved figures. Also, note that the 
type of budget is set to the first option, in other words, User 
Defined. You save the budget using the Apply Changes button 
only when you define it manually. For the other two options, 
you are not required to use this button unless you change the 
fetched values or add/delete rows from the tabular form. 


4. Select Expenses as the nature of account and hit the Last Year 
Actual button, as shown at the top of Figure 25-1. Scroll to 
extreme right and note the figures being shown in the Month 
12 column, as shown at the bottom of Figure 25-1. These are 
the figures that you entered as opening balances for respective 
expense accounts in the month of June in the previous fiscal year. 





Mature of Account: * Epi 1 


Type ol Budget: 1-User Defined C Ilan Ven Budget O Lat Year Actual 





a Account hl Month Å Mianth } kiani I Moet Å bMionth % 
L M100 | Steck Cpniampbon + Kner his = Tikit rapta piesaiste] iihi piri] 
a Le LAL Hber Weges Š Lpg pisie i lia leis] patire Tig 
0 LØPE -Eltim Changes A lbh aa BHP BPI tpat 
C) =| SHO Seat Sabini pence (Aden = 10000% pennen 190008 200208 408004 
CI  m0-Grtuty Epos a Lota Hoods 19060 400182 Thij 
L 0G L Ear trigy Epa a ibe Heo HOG paii] Tikiti 


Figure 25-1. Budget allocation page 
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25.6 Summary 


Since you do not have any previous year budget data, you won’t get any result if you click 
the Last Year Budget button. For this, you will have to create another fiscal year using the 
temporary year-end process, and then you can use the budget you set in the previous 
steps. The next chapter provides instructions to generate a budget report. 
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CHAPTER 26 


Budget Report 





The budget report displays the variance between the allocated budget figure and the 
actual figure recorded through vouchers. It also carries a Status column to signify whether 
the actual value exceeded (over-applied: O) the allocated budget, or it remained within 
the defined limit (under-applied: U). The parameters form allows you to generate this 
report for a particular nature, for a single account or a range of accounts, and for different 
durations. 


26.1 Budget Report Table 


The following table (already created through the script file) stores budget report values 
generated by a process defined in Table 26-5 later in the chapter. 


BUDGET REPORT TABLE 


CREATE TABLE gl budget report 

(coacode VARCHAR2(11), coatitle VARCHAR2(50), budget NUMBER(15,2), 

actual NUMBER(15,2), variance NUMBER(15,2), percent NUMBER(7,2), 

status VARCHAR2(1), userid VARCHAR2(50), grand_total NUMBER(1), coname 
VARCHAR2(50), AccountFrom VARCHAR2(11), AccountTo VARCHAR2(11), MonthFrom 
VARCHAR2(9), MonthTo VARCHAR2(9), 

PrintedOn timestamp) 





26.2 Create Page and Parameters Form 


As usual, create a blank page (using Table 26-1) that will carry two regions: Parameters 
and Interactive Report. By selecting an option from the Nature radio group list, you apply 
a filter to display accounts associated with the selected nature in the two LOVs defined on 
the next page. 
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Table 26-1. Page Attributes 


Action 


Create Blank 
Page 


Create Region 


Create Page Item 
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Attribute 


Page Number 
Name 

Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 
Entry 


Title 

Type 

Template 

Name 

Type 

Label 

Number of Columns 
Page Action on Selection 
Region 

Start New Row 
Column/Column Span 
Label Column Span 
Type (LOV) 


Static Values 


Display Null Value 
Type (Default) 
Static Value 


Value 


75 

Budget Report 

Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation menu 
entry for this page 


Reports 


Budget Report Parameters 
Static Content 

Standard 
P75_COANATURE 

Radio Group 
<b>Nature:</b> 

6 

Submit Page 

Budget Report Parameters 
Yes 

Automatic 

2 

Static Values 


STATIC: Capital; Capital, Liabilities; Li 
abilities, Assets; Assets, 

Expenses; Expenses, Revenue; Reve 
nue 


No 
Static Value 


Revenue 


(continued) 


Table 26-1. (continued) 


Action 


Create Page Item 


Create Page Item 


Attribute 

Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 

SQL Query 


Name 

Type 

Label 

Region 

Label Column Span 
Template 

Value Required 
LOV Type 


SQL Query 
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Value 


P75 ACCOUNTFROM 
Popup LOV 
<b>From:</b> 
Budget Report Parameters 
2 
Required 
Yes 
SQL Query 
SELECT coacode||'-'|coatitle d, 
coacode r FROM gl _ coa 
WHERE cocode=(select cocode from 
gl users 
where userid=: APP _ 
USER) AND 
coalevel=4 AND 


coanature=:P75 COANATURE 
ORDER BY coacode 


P75 ACCOUNTTO 

Popup LOV 

<b>To:</b> 

Budget Report Parameters 
2 

Required 

Yes 

SQL Query 


Same as the one defined for P75_ 
ACCOUNTFROM 


(continued) 
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Table 26-1. (continued) 


Action 


Create Page Item 


Create Page Item 


234 


Attribute 

Name 

Type 

Label 

Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 
LOV Type 


SQL Query 


Default Type 

Static Value 

Name 

Type 

Label 

Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 
LOV Type 


SQL Query 


Default Type 
Static Value 


Value 


P75_MONTHFROM 
Select List 

<b>From:</b> 

Budget Report Parameters 
Yes 

Automatic 

2 

Required 

Yes 

SQL Query 

SELECT comonthname d,comonthid 


r FROM gl fiscal year 
WHERE cocode=(select cocode from 


gl users 
where userid=: APP 
USER) AND 
coyear=(select coyear from 

gl users 
where userid=: APP 
USER) 

ORDER BY comonthid 

Static Value 

1 

P75_MONTHTO 

Select List 

<b>To:</b> 

Budget Report Parameters 

Yes 

Automatic 

2 

Required 

Yes 

SQL Query 


Same as the one defined for P75_ 
MONTHFROM 


Static Value 
] 
(continued) 


Table 26-1. (continued) 


Action 


Create Page Item 


Create Page Item 


Create Button 


Create Button 


26.3 Create Computations 


Attribute 
Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Button Name 


Label 


Region 


Button Position 


Action 


Button Name 


Label 


Region 


Button Position 


Action 
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Value 


P75 COCODE 

Hidden 

Budget Report Parameters 

SQL Query (return single value) 


SELECT cocode FROM gl users 
WHERE userid=: APP USER 


Always, replacing any existing value 
in session state 


P75 COYEAR 

Hidden 

Budget Report Parameters 

SQL Query (return single value) 


SELECT coyear FROM gl users 
WHERE userid=: APP USER 


Always, replacing any existing value 
in session state 


Display 

Display 

Budget Report Parameters 
Copy 

Submit Page 

Print 

Print 

Budget Report Parameters 
Copy 

Submit Page 


Click the Rendering tab to create two computations (listed in Table 26-2) to display the 
first and last accounts from the COA in the corresponding page items. Right-click the 
Before Header node and select Create Computation from the context menu. This will 
add a Computations node under the Before Header node. Set the following attributes as 
shown in Table 26-2. 
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Table 26-2. Computation Attributes 


Action Attribute Value 
Create Computation Item Name P75 ACCOUNTFROM 
Point Before Header 
Computation Type SQL Query (return single value) 
SQL Query SELECT MIN(coacode) FROM 
gl coa 
WHERE coanature=:P75 
COANATURE AND 
coalevel=4 AND 
cocode=:P75 COCODE 
Create Computation Item Name P75 ACCOUNTTO 
Point Before Header 
Computation Type SQL Query (return single value) 
SQL Query SELECT MAX(coacode) FROM 
gl coa 
WHERE coanature=:P75 
COANATURE AND 


coalevel=4 AND 
cocode=:P75 COCODE 


26.4 Create Interactive Report 


Using Table 26-3, create an interactive report to create the onscreen version of the budget 
report. 


Table 26-3. Interactive Report Attributes 


Action Attribute Value 
Create Region Title Budget Report 
Type Interactive Report 
SQL Query SELECT * FROM gl budget report 


WHERE userid=: APP USER 
ORDER BY grand total,coacode 


Template Standard 


Modify the interactive report to incorporate the following amendments: 


1. Set meaningful column headings. 
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2. Run the page, and using the Actions menu » Select Columns 
option, move Account Code, Title, Budgeted Amount, Actual 
Amount, Variance, Percent, and Status columns to the Display 
in Report pane. 


3. Create a highlight rule as listed in Table 26-4 to highlight the 
grand total row using different text and background colors. 


Table 26-4. Highlight Rule 
Rule Name Column Operator Expression 


Grand Total Grand Total = 1 


4. Save the report by selecting As Default Report Settings, 
followed by the Primary option. 


26.5 Budget Report Generation Process 


The process mentioned in Table 26-5 generates the budget report and stores the result in 
the gl budget report table with respective user ID and parameters. 


Table 26-5. Budget Report Generation Process 


Action Attribute Value 
Create Process Name Generate Budget Report 
Type PL/SQL Code 
PL/SQL Code Book_Code\Chapter26\Generate Budget 
Report.txt 
Point Processing 
Condition Type Request is contained in value 
Value Display,Print 


26.6 Generate PDF Report 


Create a PDF version of this report using the attributes and values listed in Table 26-6. 


237 


CHAPTER 26 = BUDGET REPORT 


Table 26-6. Report Query Attributes 


Attribute Value 
Report Query Name budget_report 
SQL Query SELECT * FROM gl_budget_report 


WHERE userid=:APP_USER 
ORDER BY grand_total,coacode 


XML File Name budget_report.xml 


Columns in RTF Template Table Account Code, Title, Budget Amount, Actual 
Amount, Variance, Percent, and Status 


RTF File Name budget_report.rtf 
Branch Name Run Budget Report 
Branch Request PRINT_REPORT=budget_report 


26.7 Test Your Work 


Execute the following steps to test this segment. Make sure your current company is 
ABC & Company and your working period is July in 2016. In other words, the text ABC & 
Company July, 2016 should display on your screen. 


1. Using Tables 26-7 and 26-8, create two sales vouchers. Note 
that I created a separate voucher type (SI) to record sales 
transactions. 


Table 26-7. Sales Voucher I 


Voucher Type: SI Voucher Number: 1 Voucher Date: 01-JUL-2016 
Description: Recorded export sales vide invoice # 123456 
Account Code Account Title Description Debit Credit 
30200200001 S.A. Gacel Recorded export 100,000 - 

sales vide invoice # 

123456 
40100100001 Export Sales Recorded export 100,000 

sales vide invoice # 

123456 
Total 100,000 100,000 
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Table 26-8. Sales Voucher 2 
Voucher Type: SI Voucher Number: 2 Voucher Date: 15-JUL-2016 


Description: Recorded local sales vide invoice # 987654 


Account Code Account Title Description Debit Credit 
30200200002 BV. Heliform Recorded local sales 150,000 - 
vide invoice # 987654 
40100100002 Local Sales Recorded local sales - 150,000 
vide invoice # 987654 
Total 150,000 150,000 


2. From the Utilities menu, click the Budget Allocation option. 
Select Revenue as the nature of account and click the User 
Defined button. You'll get the four accounts marked as 
Revenue in the tabular form. Enter 120000 and 100000 
in the Month 1 column for Export Sales and Local Sales, 
respectively. This will set a budget for these two accounts for 
the month of July. Click the Apply Changes button. 


3. Invoke the Budget Report segment from the Reports menu. 
Fill in the parameters as shown in Figure 26-1 (top) and hit the 
Display button. You will see the report shown in Figure 26-1 
(bottom). 





Nature: © Assets O Capital O Expenses O Liabilities © Revenue 


From: * 40100100001-Export Sales A 
To: *  40100100002-Local Sales “A 
From: * July : 
To: * July ; 


ABC & Company 


Budget Report 
The Cloud Accountant Printed On: 31-AUG-2015 10:39AM 


dinuk =T 40100100001 peep T 40100100002 
EA July A July 











Account Actual Variance | Percent 
40100100001-Export Sales 120,000.00 100,000 20,000.00 16.67 U 
40100100002-Local Sales 100,000.00 150,000 -50,000.00 -50.00 Oo 


GRAND TOTAL 





Figure 26-1. Budget report 
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26.8 Summary 


By showcasing the difference between the budgeted and actual values, the budget report 
helps management keep things under control. In addition to this report, there are few 
more financial reports (discussed in the next chapter) that inform management about the 
health of their organizations. 
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Set Up Accounts for 
Financial Statements 





Organizations prepare financial statements periodically (especially at the end of a fiscal 
year) to assess business performance. The two most common financial statements are 
the profit and loss (P&L) statement and the balance sheet. In this chapter, you will create 
a setup where users will provide parameters in the form of account codes from the chart 
of accounts for these two reports. These accounts will be used in the next chapter to 
produce the two financial statements. 


27.1 Accounts Table for the Financial 
Statements 


The following table was created through the script file to store financial statement 
accounts: 


FINANCIAL STATEMENTS ACCOUNTS TABLE 


CREATE TABLE gl fs setup 

(cocode NUMBER, reportcode varchar2(4), reporttitle varchar2(50), fsaccount 
varchar2(50), AccountFrom varchar2(11), AccountTo varchar2(11), CONSTRAINT 
GL FS SETUP PK PRIMARY KEY (cocode,reportcode,fsaccount) ENABLE) 


21.2 Create a List of Values 


Using Table 27-1, create a static list of values from scratch and name it Financial 
Statement Accounts. 
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Table 27-1. Financial Statement Accounts LOV 


Display Value 


Sales 
Cost of Goods 


Administrative Expenses 


Selling & Marketing Expenses 


Financial Charges 

Share Capital 

Reserves 

Profit/(Loss) 

Trade Creditors 

Accrued Expenses 

Short Term Finance 
Advance From Customers 
Accumulated Depreciation 
Banks Overdrafts 

Long Term Liabilities 
Building 

Office Equipment 
Vehicles 

Stock in Trade 

Trade Debts 

Cash and Bank 


Note 


Return Value 


Sales 

Cost of Goods 
Admin 

Selling 

Financial 

Share Capital 
Reserves 
Profit/(Loss) 

Trade Creditors 
Accrued Expenses 
Short Term Finance 
Advance From Customers 
Accumulated Depreciation 
Banks Overdrafts 
Long Term Liabilities 
Building 

Office Equipment 
Vehicles 

Stock in Trade 

Trade Debts 

Cash and Bank 


Profit & Loss Parameters 


Balance Sheet Parameters 


Initially the LOV wizard allows 15 entries. To add more entries, modify the LOV 
and use the Create Entry button. 


2/.3 Create Page and Page Items 


Create a blank page and add the items to it using Table 27-2. 
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Table 27-2. Page Attributes 


Action 


Create 
Blank 
Page 


Create 
Region 


Create 
Page Item 


Create 
Page Item 


Attribute 


Page Number 
Name 

Page Mode 
Breadcrumb 


Navigation Preference 


Existing Navigation Menu 


Entry 

Title 

Type 
Template 
Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 

Label 

Number of Columns 
Page Action on Selection 
Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

LOV Type 

Static Values 

Display Null Value 
Type (Default) 

Static Value 
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Value 


18 

Financial Statements Setup 
Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation menu entry 
for this page 


Setup 


Financial Statements Parameters 
Static Content 

Standard 

P18_COCODE 

Hidden 

Financial Statements Parameters 
SQL Query (return single value) 


SELECT cocode FROM gl_users WHERE 
userid=:APP_USER 


Always, replacing any existing value in 
session state 


P18_EXISTINGNEW 

Radio Group 

<b>Report:</b> 

2 

Submit Page 

Financial Statements Parameters 
Yes 

Automatic 

2 

Required 

Static Values 

STATIC: New; NEW, Existing; EXISTING 
No 

Static Value 

EXISTING 


(continued) 
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Table 27-2. 
Action 


Create 
Page Item 


Create 
Page Item 
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(continued) 
Attribute 

Name 

Type 

Label 

Page Action on Selection 
Region 

Start New Row 
Column 

New Column 
Column Span 
Label Column Span 
Template 

Value Required 
LOV Type 

SQL Query 


Type (Condition) 
Item 

Value 

Name 

Type 

Label 

Region 

Start New Row 
Column 

New Column 
Column Span 
Label Column Span 
Width 

Source Type 


SQL Query 
Source Used 
Type (Condition) 


Item 


Value 


Value 


P18 REPORTCODE1 

Select List 

<b>Code:</b> 

Submit Page 

Financial Statements Parameters 
No 

Automatic 

Yes 

Automatic 

Z 

Required 

No 

SQL Query 

SELECT DISTINCT reportcode d, reportcode r 


FROM gl fs setup 
WHERE cocode=:P18 COCODE 


Item = Value 

P18 EXISTINGNEW 

EXISTING 

P18 REPORTTTTLE1 

Text Field 

<b>Title:</b> 

Financial Statements Parameters 
No 

Automatic 

Yes 

Automatic 

2 

50 

SQL Query (return single value) 


SELECT reporttitle FROM gl fs setup 
WHERE reportcode=:P18 REPORTCODE1 
and cocode=:P18 COCODE 


Always, replacing any existing value in 
session state 

Item = Value 

P18 EXISTINGNEW 

EXISTING 


(continued) 


Table 27-2. 
Action 


Create 
Page Item 


Create 
Page Item 
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report. 


(continued) 
Attribute 

Name 

Type 

Label 

Region 

Start New Row 
Column 

New Column 
Column Span 
Label Column Span 
Type (Condition) 
Item 

Value 

Name 

Type 

Label 

Region 

Start New Row 
Column 

New Column 
Column Span 
Label Column Span 
Width 

Type (Condition) 
Item 


Value 


Value 


P18 REPORTCODE2 
Text Field 
<b>Code:</b> 
Financial Statements Parameters 
No 

Automatic 

Yes 

Automatic 

2 

Item = Value 
P18_EXISTINGNEW 
NEW 
P18_REPORTTITLE2 
Text Field 
<b>Title:</b> 
Financial Statements Parameters 
No 

Automatic 

Yes 

Automatic 

2 

50 

Item = Value 
P18_EXISTINGNEW 
NEW 


Create a Tabular Form 


Click the Create Page button in the Application Builder interface to create a tabular form 
region on page 18 using Table 27-3. Select the Form option followed by the Tabular Form 
option in the initial wizard screens. In this tabular form, you will specify accounts for each 
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Table 27-3. Tabular Form Attributes 


Action 


Create 
Region 
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Attribute Value 

Table Owner Accept the displayed value 

Table Name GL_FS_SETUP 

Select Columns Select all columns 

Allowed Operations Update, Insert, and Delete 
Primary Key Type Managed by Database (ROWID) 
Updatable Columns All columns 

Page 18 

Page Name Financial Statements Setup 
Page Mode Normal 

Region Title Accounts for &P18 REPORTTITLEI. 
Buttons and Branching Accept all default values 


Modify the new tabular form region on page 18 to incorporate the following 
amendments: 


1. 


Add a WHERE clause to the region’s SQL query as follows to 
display the data of the current company, year, and selected 
nature: 


SELECT “ROWID", "“COCODE", “REPORTCODE", "REPORTTITLE", 
"FSACCOUNT", "ACCOUNTFROM", 

"ACCOUNTTO'" 
FROM "HOWNERH" ."GL FS SETUP" 
WHERE (reportcode=:P18 REPORTCODE1 or reportcode=:P18_ 
REPORTCODE2) and 

cocode=:P18 COCODE 
ORDER BY ACCOUNTFROM 


Modify the COCODE column. Set Default Type to Item and enter 
P18 COCODE in the Item attribute. 
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3. Hide the columns COCODE, REPORTCODE, and REPORTTITLE by 
setting the Type property to Hidden Column (saves state). 


4. Modify the attributes listed in Table 27-4 for the FSACCOUNT 
column. 


Table 27-4. FSACCOUNT Column Attributes 


Attribute Value 

Type Select List 

Heading Account 

LOV Type Shared Component 

List of Values FINANCIAL STATEMENT ACCOUNTS 


5. Modify the attributes listed in Table 27-5 for the ACCOUNTFROM 
and ACCOUNTTO columns. 


Table 27-5. ACCOUNTFROM and ACCOUNTTO Column Attributes 
Attribute Value 


Type Popup LOV (shows displays value) 
Heading From/To 

LOV Type Shared Component 

List of Values COA ALL LEVELS 

Width 45 


6. Click the Attributes node representing the tabular form and 
set the Number of Rows attribute to 20. 


27.5 Create Validations 


Using Table 27-6, create two validations. The first one checks for a report code when you 
create parameters for a new report. The second one prompts you if it finds a code that 
already exists in the database. 
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Table 27-6. Validation Attributes 

Action Attribute 

Create Validation Name 
Type 
Item 


Error Message 


When Button Pressed 
Condition Type 
Item 
Value 
Create Validation Name 


Type 
PL/SQL Function 


Error Message 


When Button Pressed 


2/.6 Create Process 


Value 


Report Code Not NULL 
Item is NOT NULL 
P18 REPORTCODE2 


Report Code must be provided for 
new reports 


SUBMIT 

Item = Value 

P18 EXISTINGNEW 
NEW 

Check Report Code 


PL/SQL Function (returning Error 
Text) 


Book CodeVChapter27VCheck 
Report Code.txt 


Report Code already exists 
SUBMIT 


The process mentioned in Table 27-7 will populate the report code and the title in the 
tabular form to associate the code with the selected accounts. 


Table 27-7. Process Attributes 


Action Attribute Value 
Create Process — Name Populate Report Code Value in TF 
Type PL/SQL Code 
PL/SQL Code Book CodeVChapter26VPopulate Report 
Code Value in TF.txt 
Sequence 5 (to be placed before ApplyMRU process) 
Point After Submit (to execute it before 


REPORTCODE not null validation) 
When Button Pressed SUMBIT 
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Test Your Work 


Execute the following steps to test this segment: 


1. 


Run the segment from the Financial Statement option under 
the Setup menu. You'll see the segment page as illustrated in 
Figure 27-1. 


Select the New option from the radio group to define 
parameters for a new report. 


In the Code box, enter PLO1 and type Profit & Loss 
Statement in the Title box. 


Click the Add Row button to define the first account for this 
report. 


In the Account column, select Sales from the select list. 

Click From LOV and select the 4- REVENUES account from 
the chart of accounts. Click the To LOV and select the last- 
selling account (in other words, 40100200002 Sales Return & 
Discount - Local). By setting these parameters, you specified 
a range for the sales accounts that will be used in the next 
chapter to fetch sales figures for the P&L report. 


Add some more P&L accounts to the tabular form, as shown 
in Figure 27-1, to complete this setup. 


Click the Apply Changes button. 


Using a file named Balance Sheet Accounts. PNG in the 
book’s code, create a new report to specify accounts for the 
balance sheet. 


O ete Mew fede: PLO Tithe; — Profit. Ae Lows Staternent 





å Acogaant from To 
a Sylë; EEVEE A AiL Ai Saler Return å Dicunt - Local 
Cost of Gepedla t SO 160 L-håatenel Cost He SOLIHA L- Electricity Changes 
W 3 
LI Adrrvrrtrutsøt bpene 1 I -Admirartrera Bpeniet ñ SOT 00 1-Deprecution - Motor Cw 
LI Tairg år Marketing Expenses i 0 Seling år Marketing Expenses A Sb kÀ L-Deprecubon Expense - Delsøry Truck 
ü Finaca Charges t He Fnaneid Changed r SU LS? Zarderd Chartered Unteres 


Figure 27-1. P&L accounts 
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2/.8 Summary 


In this chapter, you laid the foundation for the two most significant financial reports: the 
P&L statement and the balance sheet. In the next chapter, you will learn how to create 
these two reports. 
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Financial Statements 





This is the segment that returns the final result of the efforts you have made so far. In this 
chapter, you will create the profit and loss (P&L) and balance sheet financial statements. 
These statements are based on the setup parameters you specified in the previous 
chapter. The P&L statement shows the profitability, whereas the balance sheet reports on 
the equities, liabilities, and assets of a business. Combined, these two reports reveal the 
financial state of an organization. 


28.1 Financial Statements Table 


The following table was added to the database through the script file to store the two 
financial statements along with respective notes: 


FINANCIAL STATEMENTS TABLE 


CREATE TABLE gl fs report 

(reportcode varchar2(4), reporttitle varchar2(50), srno NUMBER, fsaccount 
varchar2(50), currentbalance number(15,2), previousbalance number(15,2), 
percent number(7,2), userid varchar2(50), coname varchar2(50), coyear 
number(4), comonthname varchar2(9), calculation number(1), netvalue 
number(1), notes number(1), notescode varchar2(11), notestitle varchar2(50), 
heading number(1)) 


28.2 Create Page and Page Items 


Create a blank page and add the items to it using Table 28-1. 
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Table 28-1. Page Attributes 


Action 


Create Blank 


Page 


Create 
Region 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 
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Attribute 


Page Number 


Name 
Page Mode 


Breadcrumb 


Navigation Preference 


Existing Navigation Menu 


Entry 

Title 

Type 
Template 
Name 

Type 
Region 
Source Type 
SQL Query 


Name 

Type 
Region 
Source Type 
SQL Query 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Value 


76 

Financial Statements 

Normal 

- do not use breadcrumbs on page - 


Identify an existing navigation menu entry 
for this page 


Reports 


Financial Statements Parameters 
Static Content 

Standard 

P76 COCODE 

Hidden 

Financial Statements Parameters 
SQL Query (return single value) 


SELECT cocode FROM gl users 
WHERE userid=: APP USER 


P76_CONAME 

Hidden 

Financial Statements Parameters 
SQL Query (return single value) 


SELECT coname FROM gl_ company 
WHERE cocode=(select cocode from 
gl users 
where upper(userid)= 
upper(:APP USER)) 


P76 CURRENTFROMDATE 
Hidden 

Financial Statements Parameters 
SQL Query (return single value) 


SELECT pfrom FROM gl fiscal year 

WHERE cocode=:P76 COCODE and 
coyear=:P76 CURRENTYEAR 
and comonthid=1 

Always, replacing any existing value in 

session state 


(continued) 


Table 28-1. (continued) 


Action 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 


Attribute 
Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


CHAPTER 28 ™ FINANCIAL STATEMENTS 


Value 


P76_CURRENTTODATE 

Hidden 

Financial Statements Parameters 

SQL Query (return single value) 

SELECT pto FROM gl fiscal year 

WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR 
AND comonthid=:P76_ 
CURRENTMONTH 

Always, replacing any existing value in 

session state 

P76_PREVIOUSFROMDATE 

Hidden 

Financial Statements Parameters 

SQL Query (return single value) 

SELECT pfrom FROM gl fiscal year 

WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR-1 
AND comonthid=1 

Always, replacing any existing value in 

session state 

P76_PREVIOUSTODATE 

Hidden 

Financial Statements Parameters 

SQL Query (return single value) 

SELECT pto FROM gl fiscal year 

WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR-1 
AND 
comonthid=:P76_ 
CURRENTMONTH 

Always, replacing any existing value in 

session state 


(continued) 
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Table 28-1. (continued) 


Action 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 
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Attribute 
Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 

Label 

Region 

Start New Row 
Column/Column Span 
Label Column Span 
Template 

Value Required 

LOV Type 


SQL Query 


Name 

Type 

Label 

Region 

Start New Row 
Column 

New Column 
Column Span 
Label Column Span 
Template 
Value Required 
LOV Type 


SQL Query 


Value 


P76 COMONTHNAME 

Hidden 

Financial Statements Parameters 
SQL Query (return single value) 


SELECT comonthname FROM gl fiscal year 

WHERE cocode=:P76 COCODE AND 
coyear=:P76 CURRENTYEAR AND 
comonthid=:P76 CURRENTMONTH 


Always, replacing any existing value in 
session state 

P76 REPORTCODE 

Select List 

<b>Code:</b> 

Financial Statements Parameters 

Yes 

Automatic 

1 

Required 

Yes 

SQL Query 

SELECT distinct reportcode||' - '||reporttitle 


d, reportcode r FROM gl fs setup 
WHERE cocode=:P76_COCODE 


P76_CURRENTYEAR 

Select List 

<b>Current Year:</b> 

Financial Statements Parameters 

No 

Automatic 

Yes 

Automatic 

2 

Required 

Yes 

SQL Query 

SELECT distinct coyear d, coyear r FROM 
gl fiscal year 


WHERE cocode=:P76 COCODE ORDER BY 
coyear 


(continued) 


Table 28-1. (continued) 


Action 


Create Page 
Item 


Create Button 


Create Button 


Attribute 
Name 

Type 

Label 

Region 

Start New Row 
Column 

New Column 


Column Span 


Label Column Span 


Template 
Value Required 
LOV Type 


SQL Query 


Button Name 
Label 

Region 

Button Position 
Action 

Button Name 
Label 

Region 

Button Position 


Action 
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Value 


P76_CURRENTMONTH 

Select List 

<b>Month:</b> 

Financial Statements Parameters 

No 

Automatic 

Yes 

Automatic 

2 

Required 

Yes 

SQL Query 

SELECT DISTINCT comonthname d, 
comonthid r 

FROM gl_fiscal_year 


WHERE cocode=:P76_COCODE order by 
comonthid 


PROFIT_LOSS 

Generate P&L 

Financial Statements Parameters 
Copy 

Submit Page 

BALANCE_SHEET 

Generate Balance sheet 
Financial Statements Parameters 
Copy 

Submit Page 
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28.3 Create Interactive Report and Buttons 


Using Table 28-2, create an interactive report region to produce the onscreen view of the 
financial statements. 


Table 28-2. Interactive Report Region 


Action 


Create Region 


Create Button 


Create Button 


Attribute 
Title 

Type 

SQL Query 


Template 
Button Name 
Label 

Region 

Button Position 
Action 

Button Name 
Label 

Region 

Button Position 


Action 


Value 


&P76 REPORTCODE. 
Interactive Report 


SELECT * from gl fs report 
WHERE upper(userid)=upper(: APP USER) AND 
notes=0 AND 
reportcode=:P76 REPORTCODE 
ORDER BY srno 


Standard 

PRINT 

Print 

&P76 REPORTCODE. 
Copy 

Submit Page 

PRINT NOTES 

Print Notes 

&P76 REPORTCODE. 
Copy 

Submit Page 


Modify the interactive report as shown in Figure 28-1 and save it by selecting the As 
Default Report Settings option followed by the Primary option. 
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| Print | Print Notes 


> Net Value, Net Profit/Loss 





Account Current Year Previous Year % Change 
Sales 249,000.00 175,000.00 42.29 
Cost of Goods 0.00 15,500.00 -100 
a Gross Margin 249,000.00 159,500.00 56.11 
Administrative Expenses 17,000.00 48,500.00 -64.95 
Selling Expenses 60,000.00 3,500.00 1614.29 
Financial Charges 500.00 0.00 0 





Figure 28-1. The interactive report 


28.4 Create Computations 


The two financial statements are generated for the selected year (which is treated as the 
current year) along with comparative figures from the previous year. The computations 
listed in Table 28-3 are created to evaluate the proper periods from the fiscal year table 
and are used in the processes created in the next section. 
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Table 28-3. Computation Attributes 


Action 


Create 
Computation 


Create 
Computation 


Create 
Computation 


Create 
Computation 


Create 
Computation 
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Attribute 


Item Name 
Point 


Computation Type 
SQL Query 


Item Name 
Point 


Computation Type 
SQL Query 


Item Name 
Point 


Computation Type 
SQL Query 


Item Name 
Point 


Computation Type 
SQL Query 


Item Name 
Point 


Computation Type 
SQL Query 


Value 


P76 CURRENTFROMDATE 
After Submit 
SQL Query (return single value) 


SELECT pfrom FROM gl fiscal year 
WHERE cocode=:P76 COCODE AND 
coyear=:P76 CURRENTYEAR AND 
comonthid=1 


P76_CURRENTTODATE 
After Submit 
SQL Query (return single value) 


SELECT pto FROM gl fiscal year 
WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR AND 
comonthid=:P76_CURRENTMONTH 


P76_PREVIOUSFROMDATE 
After Submit 
SQL Query (return single value) 


SELECT pfrom FROM gl fiscal year 
WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR-1 AND 
comonthid=1 


P76_PREVIOUSTODATE 
After Submit 
SQL Query (return single value) 


SELECT pto FROM gl fiscal year 

WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR-1 AND 
comonthid=:P76_CURRENTMONTH 


P76_COMONTHNAME 
After Submit 
SQL Query (return single value) 


SELECT comonthname FROM gl_ 
fiscal_year 

WHERE cocode=:P76_COCODE AND 
coyear=:P76_CURRENTYEAR AND 
comonthid=:P76 CURRENTMONTH 
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28.5 Create On-Demand Processes 


Open the Shared Components interface. Click Application Processes in the Application 
Logic section to create two on-demand processes, as listed in Table 28-4. Note that these 


processes will be called from three different application pages. 


Table 28-4. On-Demand Process Attributes 


Action 


Create Process 


Create Process 


Attribute 


Name 


Point 


PL/SQL Code 


Condition Type 


Expression I 


Name 


Point 


PL/SQL Code 


Condition Type 


Expression I 


Value 


Generate Profit and Loss 


On Demand: Run this application process 
when requested by a page process. 


Book_Code\Chapter28\Generate Profit 
and Loss.txt 


Current Page Is Contained Within 
Expression 1 (comma delimited list of 
pages) 

1,6,76 (1=Desktop Home Page, 6=Mobile 
Home Page) 

Generate Balance Sheet 


On Demand: Run this application process 
when requested by a page process. 


Book_Code\Chapter28\Generate Balance 
Sheet.txt 


Current Page Is Contained Within 
Expression 1 (comma-delimited list of 


pages) 
1,6,76 


ON-DEMAND SHARED PROCESSES 


The Shared Components interface has an option called Application Processes. It 
has some process categories, one of which is On-Demand process, which lets you 
use the same PL/SQL code on multiple application pages. This way, the element of 
redundancy is eliminated from your application. Once created, these processes are 
called through some page-level processes. In APEX 4.2, there used to be a page- 
level process called On-Demand Process that was used to call such application- 
level processes on demand. When | initially created this application in APEX 4.2, 
the previous two processes were created as 13 individual processes for better 
readability and to avoid the 30,000 code limit. | used the On-Demand Process 
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page-level option to call these 13 shared processes with just a single button click 
to produce both P&L and balance sheet statements. Unfortunately, this page-level 
option is not available in APEX 5.0. As a workaround, | merged those processes into 
the previous two and tweaked the calling process through a couple of branches 
(Table 28-5) that are invoked by two different buttons: Generate P&L and Generate 
Balance Sheet. Both the processes generate respective financial statements along 
with their corresponding notes to the accounts. However, the balance sheet process 
produces accurate results only when you first execute the P&L process using the 
Generate P&L button. 





28.6 Create Branches 


Using Table 28-5, create two branches on page 76 to run the previous on-demand 
processes. Right-click the Processing node and select Create Branch from the context 
menu. Set the following attributes for the new branches. The request (APPLICATION_ 
PROCESS) calls the two on-demand processes to generate profit and loss and balance 
sheet statements along with respective notes. Note that the process name is case-sensitive 
and must be provided as it was set in the Name attribute in the previous section. 


Table 28-5. Branch Attributes 


Action 


Create Branch 


Create Branch 
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Attribute 


Name 
Point 
Type 
Target 


When Button Pressed 
Name 

Point 

Type 

Target 


When Button Pressed 


Value 


Generate Profit and Loss 
Processing 

Page or URL (Redirect) 

Type: Page In This Application 
Page: 76 

Request (under Advanced): 


APPLICATION PROCESS=Generate 
Profit and Loss 


PROFIT_LOSS 
Generate Balance Sheet 
Processing 

Page or URL (Redirect) 


Type: Page In This Application 

Page: 76 

Request (under Advanced): 
APPLICATION_PROCESS=Generate 
Balance Sheet 


BALANCE_SHEET 
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28./ Create Page for Financial Statements 
Notes 


Using Table 28-6, create a blank page and its components. This page is invoked from a 
link on page 76 (created in the next section) to browse the notes (details) of the selected 
account. 


Table 28-6. Page for Financial Statements Notes 


Action Attribute Value 
Create Blank Page Page Number 77 
Name Financial Statement Notes 
Page Mode Modal Dialog 
Breadcrumb - do not use breadcrumbs on page - 
Navigation Preference Identify an existing navigation menu 
entry for this page 
Existing Navigation Menu Reports 
Entry 
Create Region Title Notes to the Accounts 
Type Interactive Report 
SQL Query SELECT fsaccount, notescode, 
notestitle, currentbalance, 
previousbalance, percent 
FROM gl fs report 
WHERE upper(userid)=upper(: APP 
USER) AND notes=1 AND 
fsaccount=:P77 
FSACCOUNT 
ORDER BY notescode 
Create Page Item Name P77 FSACCOUNT 
Type Hidden 
Region Notes to the Accounts 


The notes page should look like Figure 28-2 after completing this chapter. 
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| Financial Statement Notes 





b =| Notes: 


Notes: : Administrative Expenses 


Code Title 

50200100001 Staff Salaries Expense (Admin) 
50200100002 Gratuity Expense 

50200200001 Electricity Expense 
50200300001 Depreciation - Motor Car 


Figure 28-2. Notes page 


Current Previous % Change 
10,000.00 8,000.00 25 

0.00 37,000.00 -100 
2,000.00 1,500.00 33.33 
5,000.00 2,000.00 150 


28.8 Create Column Link 


Switch back to page 76 to convert the Account column into a link. Click the FSACCOUNT 
column and set the attributes listed in Table 28-7. 


Table 28-7. FSACCOUNT Column Attributes 


Action Attribute 

Modify Report Type 

Column Target 
Link Text 


Value 
Link 


Type = Page In This Application 
Page = 77 


Set Items 
Name Value 
P77 FSACCOUNT #FSACCOUNT# 


Clear Cache = 77 
#FSACCOUNT# 


28.9 Generate PDF Report 


Using Table 28-8, create three PDF reports. You can use the .rtf files provided with the 


book code to save some time. 
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Table 28-8. PDF Versions 
Attribute 


Report Query Name 
SQL Query 


XML File Name 
Columns in RTF Template Table 


RTF File Name 
Branch Name 

Point 

Branch Request 
When Button Pressed 
Condition Type 

Item 

Value 


Report Query Name 
SQL Query 


XML File Name 
Columns in RTF Template Table 


RTF File Name 
Branch Name 

Point 

Branch Request 
When Button Pressed 
Condition Type 

Item 


Value 
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Value 


income_statement 


SELECT * FROM gl fs report 

WHERE upper(userid)=upper(:APP_USER) 
AND notes=0 AND 
reportcode=:P76_REPORTCODE 
ORDER BY srno 


income_statement.xml 


Account, Current Balance, Previous Balance, 
and Percent 


income_statement.rtf 

Run Income Statement 

After Processing 
PRINT_REPORT=income_statement 
PRINT 

Item = Value 

P76_REPORTCODE 

PLOI 

balance_sheet 


SELECT * FROM gl_fs_report 

WHERE upper(userid)=upper(:APP_USER) 
AND notes=0 AND 
reportcode=:P76_REPORTCODE 
ORDER BY srno 


balance_sheet.xml 


Account, Current Balance, Previous Balance, 
and Percent 


balance_sheet.rtf 

Run Balance Sheet 

After Processing 
PRINT_REPORT=balance_sheet 
PRINT 

Item = Value 
P76_REPORTCODE 


BSO1 
(continued) 
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Table 28-8. (continued) 
Attribute 


Report Query Name 
SQL Query 


XML File Name 
Columns in RTF Template Table 


RTF File Name 
Branch Name 

Point 

Branch Request 
When Button Pressed 


Value 


financial statement notes 


SELECT * FROM gl fs report 

WHERE upper(userid)=upper(: APP USER) 
AND notes=1 AND 
reportcode=:P76 REPORTCODE 
ORDER BY srno 


financial statement notes.xml 


Account, Current Balance, Previous Balance, 
and Percent 


financial statement notes.rtf 

Run Notes 

After Processing 

PRINT REPORT=financial statement notes 
PRINT NOTES 


28.10 Enter Vouchers 


Using the two files (2015 . PDF and 2016. PDF) provided in the book code (Chapter28 folder), 


create some more vouchers to get a complete picture of the two financial statements. 
The file 2015 . PDF contains a couple of transactions related to expense accounts. These 
transactions should be posted in the previous year, in other words, 2015. Every time you 
create or amend an expense or revenue account in the previous year, the temporary year- 
end process must be executed to reflect these amendments in the profit and loss account. 
Failing to do so may result in inaccurate financial statements. After posting all vouchers 
from the two PDFs, switch back to 2015 and execute the temporary year-end process. 


28.11 


Test Your Work 


Execute the following steps to test this part of the application: 


1. Invoke it from the Reports > Financial Statements menu. 


2. Select PLO1-Profit & Loss Statement from the Code list, select 
2016 as the Current Year, and select June from the Month 
list, as illustrated in Figure 28-3 (top). Click the Generate 
P&L button to execute the corresponding process created 
in Chapter 28. The interactive report defined under the 
parameters region will be populated with the profit and loss 
report. The first column (Account) of this report is presented 
as a link that you defined in the "Create Column Link” section. 
This link was created to browse the details behind a selected 
account. Click the Sales link to see its notes. 
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3. To test the balance sheet report, switch the code to BSO1- 
Balance Sheet. Keep the year and month parameters as is. To 
produce an accurate balance sheet statement, you must click 
both buttons. Click the Generate P&L button first to calculate 
the profit and loss figures that are reflected in the balance 
sheet. After clicking this button, the profit and loss report 
will appear in the interactive report. Next, click the Generate 
Balance Sheet button that invokes the corresponding on- 
demand process and presents the report on your screen. 


4. Click the Print button to have a PDF version of the main 
financial report (shown at the bottom of Figure 28-3) currently 
displayed on your screen. The Print Notes button produces a 
PDF carrying the details of the selected report. I’ve provided 
all four PDFs in the book code (in the Chapter28 folder). 
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Figure 28-3. Financial report 
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28.12 Summary 


The two financial reports you created in this chapter are the most wanted reports by the 
management of any organization. In the next chapter, you will finish this group with an 
executive dashboard comprising various analysis charts. 
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Executive Dashboard 





You created the two most vital accounting reports in the previous chapter. With the 
information provided by these reports, all stakeholders of an organization assess their 
business health. Among these stakeholders are the business executives who need some 
more information so that they can evaluate their business at a glance. To satisfy the 
need of these key stakeholders, you will create an executive dashboard in this chapter to 
graphically present the information they are looking for. 


29.1 Dashboard Table 


This segment will use the following table that has already been added to the database 
through the script file: 


DASHBOARD TABLE 


CREATE TABLE gl dashboard 

(srno NUMBER, accountTitle varchar2(50), currentYear number(15,2), 
previousYear number(15,2), userid varchar2(50), ratioTitle varchar2(50), 
current year number(15,2), previous year number(15,2)) 


29.2 Copy Components to the Home Page 


This segment will be created in the Home page (page 1), which already exists in your 
application. What’s more, it uses the same processes and page components used in the 
previous chapter, which means that you are not required to re-create them. If you look 
at the bottom part of the two on-demand processes (Chapter 28), you will find three 
code blocks labeled P&L Account Balances, P&L Ratios, and Balance Sheet Ratios. These 
are the PL/SQL blocks that relate to this segment. After calculating figures for the two 
financial statements, these blocks are executed to calculate figures that appear in different 
charts on the Home page. 

Usually you modify a page to add components to it. But this time you are going to 
learn how to use the Copy to other Page option to copy a whole region along with its 
components from page 76 to the Home page. 
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1. On -age 76, right-click the region named Financial Statements 
Parameters and select the option labeled Copy to other Page... 
from the context menu. Set the attributes listed in Table 29-1. 
Once finished, edit the Home page where you will see the copied 
region with all of its components. 


Table 29-1. Copy Region 


Attribute Value 

To Page l 

Copy Region Items Yes 

Copy Buttons Yes 

Region Name Dashboard Parameters 


2. Click the Dashboard Parameters region on the Home page 
and change its Type from Static Content to Region Display 
Selector. Scroll down in the Properties pane and set Region 
Display Selector to No. Setting the Type attribute to Region 
Display Selector displays region names in a horizontal 
list, enabling end users to select one region to display and 
hide other regions. Only page regions with their Region 
Display Selector attribute set to Yes will be displayed in the 
horizontal list. 


3. Repeat the previous step to copy the five computations 
from page 76 to page 1, considering the attributes listed in 
Table 29-2. After copying these computations, go to page 1 
and amend their respective SQL queries by replacing the P76 
prefix with P1 to point to the items on the Home page. 


Table 29-2. Copy Computations 


Attribute Value 

Copy Computation P76_CURRENTFROMDATE ... 
P76_COMONTHNAME 

Target Page 1 (same for all 5 computations) 

Target Computation Sequence 10... 50 

Target Item to be Computed P1_CURRENTFROMDATE ... 


PI COMONTHNAME 


4. Copy the two branches (Generate Profit and Loss and 
Generate Balance Sheet, listed in Table 29-3) from page 76 
to the Home page. After creation, change the Page attribute 
(under Target) from 76 to I in both branches. 
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Attribute 


Copy Branch 

Target Page 

Target Page Branch Sequence 
When Button Pressed 

Copy Branch 

Target Page 

Target Page Branch Sequence 


When Button Pressed 


Value 


Generate Profit and Loss 
l 
10 


PROFIT_LOSS (Generate P&L) 


Generate Balance Sheet 
l 
20 


BALANCE_SHEET (Generate Balance Sheet) 


29.3 Create Regions 


Right-click the main Regions node and select Create Region to create two regions 
(as mentioned in Table 29-4) on the Home page. 


Table 29-4. Region Attributes 


Action Attribute 


Create Region Title 


Type 
Parent Region 


Region Display 


Value (Region 1) 
Profit & Loss 
Trend 

Static Content 


-Select- (in other 
words, no parent 
region) 


Yes 


Value (Region 2) 


Ratio Analysis 


Static Content 


-Select- 


Yes 


Selector 


29.4 Create Chart 


Subregion 


This region will display the current year’s profit and loss accounts in a pie chart. To create 
this region, right-click the Profit & Loss Trend region and select Create Sub Region from 
the context menu. Set the attributes listed in Table 29-5 for the new region. 
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Table 29-5. Subregion Attributes 


Attribute 

Title 

Type 

Parent Region 


Body Height (in Template 
Options) 


Column Span 
New Node: 
Source Type 


SQL Query 


Attributes Node: 
Chart Type 
Rendering 

3D Mode 

Width 

Height 

Series Color Scheme 
Label Show 

Value Show 


Value 


<b>Year&P1 CURRENTYEAR.</b> 
Chart 

Profit & Loss Trend 

240px 


SQL Query 

SELECT null, accounttitle, currentyear FROM gl 
dashboard 

WHERE userid=:APP_USER AND srno 
BETWEEN 1 AND 11 

ORDER BY by srno 


Pie 
Flash Chart 
Yes 


29.5 Create a Hidden Item 


The chart to be created later in the chapter (Table 29-7) will display the P&L trend for the 
previous year. Create the hidden item (as listed in Table 29-6) to assess the previous year value. 


Table 29-6. Hidden Item Attributes 


Action Attribute Value 
Create Page Item Name P1_PREVIOUSYEAR 
Type Hidden 
Region Dashboard Parameters 
Source Type SQL Query (return single value) 
SQL Query SELECT :P1_CURRENTYEAR - 1 FROM dual 
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29.6 Copy Chart Regions 


Right-click the region Year&P1_CURRENTYEAR. and click the Duplicate option in the 
context menu. A copy of the existing region will be created under it with the same name. 
Set the attributes listed in Table 29-7 for the new region, keeping all others as is. 


Table 29-7. Region Attributes 


Attribute Value 

Title <b>Year&P1_PREVIOUSYEAR.</b> 

Start New Row No 

SQL Query SELECT null, accounttitle, previousyear FROM gl dashboard 
WHERE userid=:APP_USER AND srno BETWEEN 1 AND 11 
ORDER BY srno 


Duplicate any existing chart, such as Year&P1_PREVIOUSYEAR, and set the 
attributes listed in Table 29-8. This chart will render the current revenue trend. 


Table 29-8. Revenue Trend Attributes 


Attribute Value 

Title <b>Revenue Trend</b> 

Type Chart 

Parent Region Profit & Loss Trend 

Body Height (in Template 320px 

Options) 

Column Span 6 

New Node: 

Source Type SQL Query 

SQL Query SELECT null, accounttitle, currentyear, previousyear 
FROM gl dashboard WHERE userid=: APP USER AND 
srno=1 

Attributes Node: 

Chart Type Column 

Rendering Flash Chart 

Show Grid Y-Axis 

Show Scrollbars None 

Width 450 


(continued) 
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Table 29-8. (continued) 


Attribute Value 
Height 300 

Series Color Scheme Look 2 
Label Show Yes 
Legend Show Top 
Element Orientation Horizontal 


Make a duplicate of the Revenue Trend chart and set the attributes listed in Table 29-9. 
As the name implies, this chart will show the expenses trend. 


Table 29-9. Expenses Trend Attributes 


Attribute Value 

Title <b>Expenses Trend</b> 

Start New Row No 

New Node: 

SQL Query SELECT null, accounttitle, currentyear, previousyear 


FROM gl_dashboard WHERE userid=:APP_USER AND 
(srno=3 or srno=8 or srno=9 or srno=10) 


Attributes Node: 
Series Color Scheme Look 6 
Label Rotation 20 (degrees) 


Make a copy of Revenue Trend and set the attributes listed in Table 29-10. This 
region will show the gross profit ratio. All the regions from this point will be placed under 
the Ratio Analysis region. 


Table 29-10. Gross Profit Ratio Attributes 


Attribute Value 

Title <b>Gross Profit Ratio</b> 
Parent Region Ratio Analysis 

Body Height (in Template Options) 320px 

Column Span 4 


(continued) 
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Table 29-10. (continued) 


Attribute Value 
New Node: 
SQL Query SELECT null, accounttitle, current_year, 


previous_year 
FROM gl dashboard WHERE userid=:APP_ 
USER AND srno=50 


Attributes Node: 

Width 300 
Height 300 

Series Color Scheme Custom 
Custom #08A03D, #398F84 
Decimal Places (under Y-Axis) 2 

Label Show No 

Value Show Yes 

Font Color HFFFFFF 
Tooltip Show No 
Legend Show Top 
Element Orientation Horizontal 


Make a duplicate of Gross Profit Ratio to create Operating Profit Ratio. Incorporate 
the attributes listed in Table 29-11 in the new region. 


Table 29-11. Operating Profit Ratio Attributes 


Attribute Value 

Title <b>Operating Profit Ratio</b> 

Start New Row No 

New Node: 

SQL Query SELECT null, accounttitle, current_year, previous_ 
year 
FROM gl_dashboard WHERE userid=:APP_USER 
AND srno=52 

Attributes Node: 


Custom (under Series Color) #73000F, #B31919 
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Make a duplicate of the Operating Profit Ratio region to create the Net Profit Ratio 
region with the distinctions listed in Table 29-12. 


Table 29-12. Net Profit Ratio Chart Attributes 


Attribute Value 

Title <b>Net Profit Ratio</b> 

New Node: 

SQL Query SELECT null, accounttitle, current_year, previous_year 
FROM gl_dashboard WHERE userid=:APP_USER AND 
srno=53 

Attributes Node: 

Series Color Scheme Look 2 


Make the Current Ratio region from Gross Profit Ratio considering the distinctions 
listed in Table 29-13. 


Table 29-13. Current Ratio Attributes 


Attribute Value 
Title <b>Current Ratio</b> 
Sequence 100 
New Node: 
SQL Query SELECT null, accounttitle, current year, previous year 
FROM gl dashboard WHERE userid=: APP USER AND srno=60 
Attributes Node: 
Legend Show None 


Using Table 29-14, make the Net Working Capital region from Operating Profit Ratio. 
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Table 29-14. Net Working Capital Attributes 


Attribute = Value 
Title <b>Net Working Capital</b> 
Sequence 110 
New Node: 
SQL Query SELECT null, accounttitle, current_year, previous_year 
FROM gl_dashboard WHERE userid=:APP_USER AND srno=62 
Attributes Node: 
Font Color #000000 
Legend Show None 


Make the Quick Ratio region from Net Profit Ratio, using Table 29-15. 


Table 29-15. Quick Ratio Attributes 


Attribute Value 
Title <b>Quick Ratio</b> 
Sequence 120 
New Node: 
SQL Query SELECT null, accounttitle, current_year, previous_year 
FROM gl_dashboard WHERE userid=:APP_USER AND srno=63 
Attributes Node: 
Legend Show None 


29.7 Test Your Work 


Click the application title The Cloud Accountant on the top of your screen to see the 
Home page. Select BS01-Balance Sheet, 2016, and June for Code, Current Year, and 
Month, respectively. Hit the Generate P&L button. Once the page gets refreshed, hit the 
Generate Balance Sheet button. If Region Display Selector is set to the default Show All 
option, then you'll see all ten charts on your screen. Click the option Profit & Loss Trend 
in the region selector. This action will hide the six charts created under the Ratio Analysis 
region. Similarly, if you click the Ratio Analysis option (Figure 29-1), the four charts 
created under the Profit & Loss Trend region will be hidden. 
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Figure 29-1. Ratio Analysis charts 


29.8 Summary 


The charts you added to the Home page provide insight into an organization's financial 
status. Here you learned how to create different types of analyses for management. In the 
next chapter, you will create a feedback module that allows interaction among application 
users. 
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CHAPTER 30 


Application Feedback 





This segment is added to create interaction among the application administrator and 

its users. It allows end users to communicate application issues to the application 
administrator. It consists of a form and a report. The form is created for the users to input 
their feedback, while the report is used by the application administrator to browse the 
issues added through the form. 


30.1 Application Feedback Table 


The following table and sequence were created through the script file to store application 
feedback received from the users of the application: 


FEEDBACK TABLE 


CREATE TABLE gl feedback 

(feedbackID NUMBER, TS timestamp default sysdate, custName varchar2(50), 
custEmail varchar2(100), custFeedback varchar2(4000), CONSTRAINT GL 
FEEDBACK PK PRIMARY KEY (feedbackID) ENABLE) 


CREATE SEQUENCE gl feedback seq 


30.2 Create Feedback Input Form 


Using Table 30-1, create a new page. On the first wizard page, select Form, and on the 
next page, select Form on a Table or View. 
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Table 30-1. Page Attributes 


Attribute 


Action 


Create 
Page 


Branch here on Cancel 
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Table/View owner 
Table/View Name 
Page Number 
Page Name 

Page Mode 
Region Title 


Navigation Preference 


Primary Key Type 

Primary Key Column 1 

Source for Primary Key Column 1 
Sequence 

Form Columns 

Buttons 


Branch here on Submit 


Modify the feedback page as follows: 


1. 


Value 


Accept the displayed value 
GL_FEEDBACK (table) 
300 

Application Feedback 
Normal 

Application Feedback 


Do not associate this page with a 
navigation menu entry 


Select Primary Key Column(s) 
FEEDBACKID 

Existing Sequence 
GL_FEEDBACK_SEQ 

Select all columns 

Accept all default values 

1 

1 


Change the Type value of the timestamp field (P300_TS) to 
Hidden. Set the Default Type value of this item to PL/SQL 
Expression and enter sysdate as the value for the PL/SQL 
Expression attribute to store the current system date for each 


feedback. 


Set the labels of the three text items to Customer, Email, and 
Feedback. Also set Template to Required and Value Required 
to Yes for these three Text Field items. 


Select the P300_CUSTFEEDBACK item and set its Height 


attribute to 20 lines. 


Click the process named Process Row of GL FEEDBACK on 
the Processing tab. Type Thank you very much for providing 
your valuable feedback in the Success Message box. 
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30.3 Create Feedback Report Page 


Next, create an interactive report page to display a list of all feedback entered through 
page 301. This report allows an administrator to see and reply to the users’ feedback. 
Click the Create Page button. Select the Report option on the first wizard screen followed 
by the Interactive Report option. Set the attributes as listed in Table 30-2. 


Table 30-2. Feedback Report Page Attributes 


Action Attribute Value 
Create Page Number 300 
Page Page Name Feedback Report 
Page Mode Normal 
Region Name Feedback Report 
Navigation Preference Identify an existing navigation 
menu entry for this page 
Existing Navigation Menu Entry Reports 
SQL Query SELECT * FROM gl feedback 


Modify the feedback report page by changing the column headings as shown in 
Figure 30-1 (bottom). 
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Figure 30-1. Feedback report page 
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30.4 Test Your Work 


Click the Feedback link in the navigation bar to run the feedback input form. Enter your 
name, e-mail address, and some text such as This is feedback (shown earlier at the top 
of Figure 30-1), and click the Create button. An acknowledgment message will appear 
indicating that your feedback was received. Expand the Reports menu and click the 
Feedback option to see the feedback you just saved. 


30.5 Summary 


In this chapter, you learned how application users can interact with each other to discuss 
application issues. In the next chapter, you will create a small footprint of the application 
that is accessible on smartphones. 
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Mobile Version 





With mobile web usage incrementing every year, there is a huge demand in the market for 
applications supported on smartphones and tablets. To help develop new applications 
and extend existing web applications for mobile use, Oracle APEX is enhanced with 
mobile development features. Now you can easily build applications for modern 
smartphones and tablets, such as the iPhone, iPad, Android, and so on, using Oracle 
APEX. In this chapter, you'll get a taste of this handy feature by creating some high-end 
graphical financial reports for the busy business community to keep them in touch with 
their businesses while on the road. 


31.1 Create an Interface for a Mobile 
Application 


Oracle APEX allows you to create two types of interfaces: desktop and mobile. Each page 
in an application is associated with one user interface. If a user logs into the application 
with a mobile device, the pages created with the mobile interface will be rendered; for big 
screens, the desktop user interface is used. You developed the desktop interface in each of 
the previous chapters. Now you'll use the mobile interface to build a mobile version. 


1. Click the Edit Application Properties button in the main 
Application Builder interface. 


2. Click the User Interface tab. 
3. Click the Add User Interface button. 


4. On the User Interface page, set the attributes listed in 
Table 31-1, and click Next. 
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Table 31-1. Mobile UI Attributes 


Attribute Value 

Type Mobile 

Display Name Mobile (the display name is shown in page creation wizards) 

Auto Detect Yes 

Home URL f?p=&APP ID.:HOME JQM SMARTPHONE:&SESSION. 
(Specifies the home page of the application for the mobile user 
interface) 

Login URL f?p=&APP ID.:LOGIN JQM SMARTPHONE:&SESSION. 
(Points toward the login page of the application for the mobile user 
interface) 


5. On the Identify Theme page, select Standard Themes for 
Theme Type, and select Mobile (Theme 51) as the mobile 
application theme. Click Next. 


6. Click Create. 


Just like the desktop application, the mobile interface is also created with two default 
pages: Home (page 6 in my application) and Login (page 1001). In addition to these 
pages, the wizard creates a third one: Global Page - Mobile (page 9999). 


Note You may get the error "Unable to create theme. ORA-00001: unique constraint 
(APEX 050000.WWV FLOW PAGE PLUG IDX2) violated while creating the mobile 
interface.” Only the APEX administrator can fix this error. As a workaround, you can create 
the mobile version by creating a mobile application from the Application Builder (Application 
Builder > Create > Mobile). Note that the mobile version will have a new ID and you have 
to link it with the Mobile navigation bar entry by setting the Target Type attribute to URL and 
the URL Target attribute to https://apex.oracle.com/pls/apex/f?p=2506:1, where 2506 
is the ID of your mobile application. You also need to create the two processes (Generate 
Balance Sheet and Generate Profit and Loss) in the mobile application and amend them 
accordingly. 


31.2 Region and Page Items 


The mobile version of the general ledger application will show some crucial reports to 
business executives on their mobile devices. After a successful login attempt, the user will 
select three values from the home page parameters: Company, Year, and Month. Then 
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the user can click two buttons (Profit & Loss and Balance Sheet) to generate the data 
for the selected parameters. The mobile version has a slider menu on the top left of the 
screen. The menu will display a set of report options that you'll define using Table 31-3. 
Clicking these options will fetch the appropriate data from the base table. The rest of 
the procedure is similar to the one you used in the previous chapter while creating the 
desktop executive dashboard. Let's start by creating a region on the mobile home page 
(page 6) and adding some page items using Table 31-2. 


Note Use an item prefix for page items and in SQL queries according to your mobile 


page number. 


Table 31-2. Region and Item Attributes 


Action Attribute 
Create Region Title 
Type 
Template 
Create Page Name 
Item Type 
Label 
Region 
Start New Row 
Column 
LOV Type 
SQL Query 


Source Type 
SQL Query 


Source Used 


Value 


Mobile Parameters 
Static Content 
Standard 

P6 COMPANY 
Select List 
Company 

Mobile Parameters 
Yes 

Automatic 

SQL Query 


SELECT coname, cocode FROM gl company 
ORDER BY cocode 


SQL Query (return single value) 


SELECT cocode FROM gl users WHERE 
userid=:APP USER 


Only when current value in session state is null 
(continued) 
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Table 31-2. (continued) 


Action 


Create Page 
Item 


Create Page 
Item 


284 


Attribute 
Name 

Type 

Label 

Region 

Start New Row 
Column 

LOV Type 

SQL Query 


Cascading LOV 
Parent Item(s) 


Source Type 
SQL Query 


Source Used 
SQL Query 


Name 

Type 

Label 

Region 

Start New Row 
Column 

LOV Type 


SQL Query 


Cascading LOV 
Parent Item(s) 


Source Type 
SQL Query 


Source Used 


Value 


P6 CURRENTYEAR 

Select List 

Year 

Mobile Parameters 

Yes 

Automatic 

SQL Query 

SELECT DISTINCT(coyear) d, coyear r FROM 
gl fiscal year 


WHERE cocode=:P6 COMPANY ORDER BY 
coyear 


P6 COMPANY 


SQL Query (return single value) 


SELECT coyear FROM gl users WHERE 
userid=:APP USER 


Only when current value in session state is null 


SELECT cocode FROM gl users WHERE 
userid=:APP USER 


P6 CURRENTMONTH 

Select List 

Month 

Mobile Parameters 

Yes 

Automatic 

SQL Query 

SELECT DISTINCT(comonthname) d, comonthid r 
FROM gl fiscal year 


WHERE cocode=:P6 COMPANY 
ORDER BY comonthid 


P6 COMPANY 


SQL Query (return single value) 

SELECT comonthid FROM gl users WHERE 

userid=:APP USER 

Only when current value in session state is null 
(continued) 
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Action 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 


Attribute 
Name 

Type 
Region 
Source Type 
SQL Query 


Name 

Type 
Region 
Source Type 
SQL Query 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 
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Value 


P6 COCODE 

Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT cocode FROM gl users WHERE 
userid=:APP USER 


P6_CONAME 

Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT coname FROM gl_company 

WHERE cocode=(select cocode from gl users 
where upper(userid)=upper 
(:APP_USER)) 


P6_CURRENTFROMDATE 
Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT pfrom FROM gl fiscal year 

WHERE cocode=:P6_COCODE and coyear=:P6_ 
CURRENTYEAR AND 
comonthid=1 


Always, replacing any existing value in session 
state 


P6_CURRENTTODATE 

Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT pto FROM gl fiscal year 

WHERE cocode=:P6_COCODE AND coyear=:P6_ 
CURRENTYEAR AND 
comonthid=:P6_CURRENTMONTH 


Always, replacing any existing value in session 
state 


(continued) 
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Table 31-2. (continued) 


Action 


Create Page 
Item 


Create Page 
Item 


Create Page 
Item 


Create Button 
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Attribute 
Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Name 

Type 
Region 
Source Type 
SQL Query 


Source Used 


Button Name 
Label 


Region 


Button Position 


Action 


Value 


P6_PREVIOUSFROMDATE 
Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT pfrom FROM gl fiscal year 

WHERE cocode=:P6_COCODE AND coyear=:P6_ 
CURRENTYEAR-1 AND 
comonthid=1 


Always, replacing any existing value in session 
state 


P6_PREVIOUSTODATE 
Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT pto FROM gl fiscal year 

WHERE cocode=:P6_COCODE AND coyear=:P6_ 
CURRENTYEAR-1 AND 
comonthid=:P6_CURRENTMONTH 


Always, replacing any existing value in session 
state 


P6_COMONTHNAME 

Hidden 

Mobile Parameters 

SQL Query (return single value) 


SELECT comonthname FROM gl fiscal year 

WHERE cocode=:P6_COCODE AND coyear=:P6_ 
CURRENTYEAR AND 
comonthid=:P6_CURRENTMONTH 


Always, replacing any existing value in session 
state 


PROFIT_LOSS 
Profit & Loss 
Mobile Parameters 
Bottom of Region 


Submit Page 
(continued) 
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Table 31-2. (continued) 


Action Attribute Value 

Create Button Button Name BALANCE SHEET 
Label Balance sheet 
Region Mobile Parameters 
Button Position Bottom of Region 
Action Submit Page 


31.3 Copy Computations and Branches 


Copy the five computations across from page 76 as you did in the previous chapter. 
Replace the P76 prefix with P6 in all SQL queries to point to the items on the mobile home 
page. Also, copy the two branches (Generate Profit and Loss and Generate Balance Sheet) 
from page 76 to the mobile home page. Do not forget to change the Page attribute (under 
Target) from 76 to 6 in both branches. 


31.4 Add Entries to Mobile Navigation Menu 


Select the Mobile Navigation menu from the Shared Components » Navigation menu. 
Click the Create List Entry button and add the entries listed in Table 31-3 one after the 
other to the navigation menu. 


Table 31-3. Mobile Navigation Menu 


List Entry Label Page 
Profit & Loss Statement 103 
Revenue Trend 104 
Expense Trend 105 
Gross Profit Ratio 106 
Operating Profit Ratio 107 
Net Profit Ratio 108 
Current Ratio 109 
Net Working Capital 110 
Quick Ratio 111 
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31.5 Create Profit and Loss Statement Report 


Using Table 31-4, create the first mobile report page to display the P&L statement. The 
report consists of a bar chart and a column toggle report. By setting a region to the 
Column Toggle Report type, you specify the most important columns and those that will 
be hidden as necessary on smaller screens. 


Table 31-4. Mobile Report Page 


Action Attribute Value 
Create Blank Page — Page Number 103 
Name Profit & Loss Statement 
Page Mode Normal 
Navigation Preference Identify an existing navigation 


menu entry for this page 


Existing Navigation Menu Entry Profit & Loss Statement 


Create Region Title Profit & Loss Statement 
Type Chart 
New Node: 
Source Type SQL Query 
SQL Query SELECT null, accounttitle, 


currentyear, previousyear 
FROM gl dashboard 

WHERE userid=:APP USER 
AND srno BETWEEN 1 AND 11 


ORDER BY srno 

Attributes Node: 

Chart Type Column 

Rendering HTML5 Chart 

3D Mode Yes 

Series Color Scheme Custom 

Custom #025391,#0587EB 
Create Page Item Name P103_CONAME 

Type Text Field 

Label <b>Company</b> 

Region Profit & Loss Statement 

Source Type Item 

Item P6_CONAME 

Source Used Always, replacing any existing 


value in session state 


(continued) 
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Action 


Create Page Item 


Create Page Item 


Create Region 


Attribute 
Name 

Type 

Label 
Region 
Source Type 
Item 


Source Used 


Name 
Type 
Label 
Region 


Source Type 


PL/SQL Expression 


Source Used 


Title 
Type 
SQL Query 
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Value 


P103 CURRENTYEAR 

Text Field 

<b>Current</b> 

Profit & Loss Statement 

Item 

P6 CURRENTYEAR 

Always, replacing any existing 
value in session state 

P103 PREVIOUSYEAR 

Text Field 

<b>Previous</b> 

Profit & Loss Statement 
PL/SQL Expression 

P103 CURRENTYEAR -1 
Always, replacing any existing 
value in session state 

P&L Report 

Column Toggle Report 


SELECT accounttitle, 
currentyear, previousyear 
FROM gl dashboard 

WHERE userid=: APP USER 
AND srno BETWEEN 1 AND 11 
ORDER BY srno 


31.6 Create Other Mobile Report Pages 


Edit page 103, click the Create menu 


hå , and select the option Page as Copy. 


Follow the wizard and set the attributes shown in Table 31-5. 
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Table 31-5. Revenue Trend Report Attributes 


Attribute 


Create a page as a copy of 
Copy from Page 

Copy to New Page Number 
New Page Name 

User Interface 
Breadcrumb 

Chart Region's New Value 


Report Region's New Value 


Value 


Page in this application 

103. Profit & Loss Statement 

104 

Revenues Trend 

Mobile 

- do not use breadcrumbs on page - 
Revenues Trend 


Revenues Report 


On page 104, modify the two SQL queries as indicated in Table 31-6. 


Table 31-6. SQL Queries 
Component 


New node (under Revenue Trend) 


Revenue Report 


SQL Query 


SELECT null, accounttitle, currentyear, 
previousyear 

FROM gl dashboard 

WHERE userid=: APP USER AND srno=1 


SELECT accounttitle, currentyear, previousyear 
FROM gl dashboard 
WHERE userid=: APP USER AND srno=1 


Copy page 104 to 105 (Expenses Trend) using the values specified in Table 31-7. 


Table 31-7. Expenses Trend Report Attributes 


Attribute 


Copy to New Page Number 
New Page Name 

Chart Region's New Value 
Report Region's New Value 


SQL Query - Expenses Trend 


SQL Query - Expenses Report 
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Value 


105 

Expenses Trend 
Expenses Trend 
Expenses Report 


SELECT null, accounttitle, currentyear, previousyear 
FROM gl dashboard 
WHERE userid=: APP USER AND (srno=3 or srno=8 
or srno=9 or srno=10) 


SELECT accounttitle, currentyear, previousyear 
FROM gl dashboard 

WHERE userid=: APP USER and (srno=3 or srno=8 or 
srno=9 or srno=10) 
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Create a Gross Profit Ratio report from Page 105 using Table 31-8. 


Table 31-8. Gross Profit Ratio Report Attributes 


Attribute Value 

Copy to New Page Number 106 

New Page Name Gross Profit Ratio 

Chart Region's New Value Gross Profit Ratio 

Report Region's New Value Gross Profit Report 

Decimal Places (under Attributes) 2 

SQL Query - Gross Profit Ratio SELECT null, ratiotitle, current_year, previous_ 
year 


FROM gl dashboard 
WHERE userid=:APP_USER AND srno=50 


SQL Query - Gross Profit Report SELECT ratiotitle, currentyear, previousyear 
FROM gl dashboard 
WHERE userid=: APP USER AND srno=50 


Create an Operating Profit Ratio report from Page 106 using Table 31-9. 


Table 31-9. Operating Profit Ratio Report Attributes 


Attribute Value 
Copy to New Page Number 107 
New Page Name Operating Profit Ratio 
Chart Region's New Value Operating Profit Ratio 
Report Region's New Value Operating Profit Report 
SQL Query - Operating Profit SELECT null, ratiotitle, current year, previous year 
Ratio FROM gl dashboard 
WHERE userid=:APP USER AND srno=52 
SQL Query - Operating Profit SELECT ratiotitle, currentyear, previousyear 
Report FROM gl dashboard 


WHERE userid=: APP USER AND srno=52 


Create a Net Profit Ratio report from page 106 using Table 31-10. 
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Table 31-10. Net Profit Ratio Report Attributes 


Attribute Value 

Copy to New Page Number 108 

New Page Name Net Profit Ratio 

Chart Region's New Value Net Profit Ratio 

Report Region's New Value Net Profit Report 

SQL Query - Net Profit Ratio SELECT null, ratiotitle, current year, previous year 


FROM gl dashboard 
WHERE userid=: APP USER AND srno=53 


SQL Query - Net Profit Report SELECT ratiotitle, currentyear, previousyear 
FROM gl dashboard 
WHERE userid=: APP USER AND srno=53 


Create a Current Ratio report from Page 106 using Table 31-11. 


Table 31-11. Current Ratio Report Attributes 


Attribute Value 

Copy to New Page Number 109 

New Page Name Current Ratio 

Chart Region's New Value Current Ratio 

Report Region's New Value Current Ratio Report 

SQL Query - Current Ratio SELECT null, ratiotitle, current year, previous year 


FROM gl dashboard 
WHERE userid=: APP USER AND srno=60 


SQL Query - Current Ratio SELECT accounttitle, currentyear, previousyear 
Report FROM gl dashboard 
WHERE userid=: APP USER AND (srno=60 or 
srno=61) 


Create Net Working Capital report from page 109 using Table 31-12. 
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Table 31-12. Net Working Capital Report Attributes 


Attribute 


Copy to New Page Number 
New Page Name 

Chart Region's New Value 
Report Region's New Value 


SQL Query - Net Working 
Capital 


SQL Query - Net Working 
Capital Report 


Value 


110 

Net Working Capital 

Net Working Capital 

Net Working Capital Report 


SELECT null, ratiotitle, current year, previous year 
FROM gl dashboard 
WHERE userid=:APP USER AND srno=62 


SELECT accounttitle, currentyear, previousyear 
FROM gl dashboard 

WHERE userid=: APP USER AND (srno=60 or 
srno=61) 


Create a Quick Ratio report from page 109 using Table 31-13. 


Table 31-13. Quick Ratio Report Attributes 


Attribute 


Copy to New Page Number 
New Page Name 

Chart Region's New Value 
Report Region's New Value 
SQL Query - Quick Ratio 


SQL Query - Quick Ratio 
Report 


Value 


111 

Quick Ratio 

Quick Ratio 

Quick Ratio Report 


SELECT null, ratiotitle, current year, previous year 
FROM gl dashboard WHERE userid=: APP USER AND 
srno=63 


SELECT accounttitle, currentyear, previousyear 

FROM gl dashboard 

WHERE userid=: APP USER AND (srno=61 or srno=63) 
ORDER BY srno DESC 
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31.7 Test Your Work 


Execute the mobile application from the Mobile option available in the desktop 
navigation bar. Enter the same username and password that you have been using 

until now. Select ABC & Company, 2016, and June for the Company, Year, and Month 
parameters, respectively. Click the Profit & Loss button to generate profit and loss 
figures. Then click the Balance Sheet button to execute the corresponding process. From 
the mobile menu, click the first option labeled Profit & Loss Statement (on the left of 
Figure 31-1). This action will run page 103 containing a bar chart and a column toggle 
report, as shown on the right of Figure 31-1. Click all the remaining reports appearing 

in the menu to check your work. Note that you are not required to select the three 
parameters or hit the two buttons for each report individually. It’s a one-time process that 
must be reexecuted when you change any of the available three parameters. 


Profit & Loss Statement 
Revenue Trend 
Expense Trend 

Gross Profit Ratio 
Operating Profit Ratio 
Net Proft Ratio 


Current Ratio 


> 
© 
© 
© 
© 
© 
© 
© 


Net Working Capital 


am 
WV 


Quick Ratio 





Figure 31-1. Mobile menu (left) and charts (right) 
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31.8 Summary 


The mobile version created in this chapter was aimed at higher management to keep 
them in touch with their businesses when they are away from their offices. The final 
chapter of this book discusses the security of the application. 


295 







CHAPTER 32 


Application Security 





Before you go live with an application, it is important to apply proper security measures. 
One of the most basic forms of protection that any web application must have is the 
enforcement of an authentication and authorization policy. Authentication deals with 
identifying users to the application; you've already implemented it in this application 
using a custom authentication scheme: a username and password. Authorization is 

the process of assessing whether the authenticated user is privileged to access certain 
data or perform a particular action. Recall that you have already laid the foundation of 
application authorization in Chapter 6 where you specified the application segments to 
which you want to apply authorization. Then, you created user groups and provided them 
with the appropriate application access privileges. In this chapter, you will create a bunch 
of authorization schemes to protect your application. These schemes will be created to 
protect menus, pages, buttons, and processes. 


32.1 Authorization Schemes for the Main Menu 


First you will create some authorization schemes to control access to the menu options 
of your application. Note that you have 9 main menus and 26 submenu options in the 
application. These all need to be protected through individual authorization schemes to 
prevent unauthorized application access. In this section, you will create authorization 
schemes for the nine main menu options. The submenu options will be controlled 
through the Page Access authorization scheme, as listed in Table 32-4 later in this chapter. 
Use the table to create these authorization schemes. The code for all these schemes is the 
same except for the menu name that must be changed for each menu item. For example, 
the menu name Home (presented in bold in the following code) should be replaced with 
the word Setup for the Setup menu, Select for the Select menu, and so on. Go to Shared 
Components, select Authorization Schemes under the Security section, and click the 
Create button. Select the From Scratch option in the initial wizard screen and set the 


remaining attributes as indicated in Table 32-1. 
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Table 32-1. Application Menu Authorization Scheme 


Attribute Value 
Name Home 
Scheme Type PL/SQL Function Returning Boolean 
PL/SQL Function Body DECLARE 
Book_Code\Chapter32\ Vadmin varchar2(1); 
Menu Authorization.txt Vallow varchar2(1); 
BEGIN 


SELECT admin INTO Vadmin FROM gl_users 
WHERE upper(userid)=upper(:APP_USER); 
IF Vadmin = 'N' then 
SELECT allow_access INTO Vallow FROM 
gl groups detail 
WHERE segmentType='Menu' AND 
segmentID=(select segmentID from 
gl segments 
where segmentTitle='Home 
(Menu)' and 
segmentType='Menu') 
AND 
groupID=(select groupID 
from gl users 
where upper(userid) 
=upper(:APP USER)); 
if Vallow='Y' then 
return true; 
else 
return false; 
end if; 
ELSE 
return true; 
END IF; 
EXCEPTION 
WHEN NO_DATA_FOUND THEN RETURN FALSE; 
END; 


Identify error message... Home authorization scheme violated 


Validate authorization scheme Once per session 


Create the remaining menu authorization schemes as listed in Table 32-2. Replace 
segmentTitle="Home (Menu)' in the PL/SQL code with the corresponding menu name. 
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Table 32-2. Menu Authorization Schemes 


Name PL/SQL Code Text Identify Error Message... 
Setup segment Title='Setup (Menu)' Setup authorization scheme 
violated 
Select segment Title='Select (Menu)' Select authorization scheme 
violated 
Transactions segmentTitle="Transactions Transactions authorization scheme 
(Menu)' violated 
Utilities segmentTitle="Utilities (Menu)' Utilities authorization scheme 
violated 
Reports segmentTitle='Reports (Menu)' Reports authorization scheme 
violated 
Closing segmentTitle='Closing (Menu)' Closing authorization scheme 
violated 
Mobile segmentTitle='Mobile (Menu)! Mobile authorization scheme 
violated 
Feedback segmentTitle='Feedback Feedback authorization scheme 
(Menu)' violated 


After creating the menu authorization schemes, go to Shared Components and in 
the Navigation section select Navigation Menu » Desktop Navigation Menu; then click 
the Home menu entry, select Home for the Authorization Scheme attribute, and click 
the Apply Changes button. This action will attach the Home authorization scheme to the 
Home menu. Repeat this step for the remaining menu options (as shown in Table 32-3) 
including the Mobile and Feedback entries in the desktop navigation bar. 


Table 32-3. Menu Items and Associated Authorization Schemes 


Menu Entry Authorization Scheme 
Home Home 

Setup Setup 

Select Select 

Transactions Transactions 

Utilities Utilities 

Reports Reports 

Closing Closing 

Mobile Mobile 


Feedback Feedback 
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32.2 Test Menu Authorization 


Test the menu authorization schemes you just implemented using the following 
steps. Make sure you have created the Clerks group (in Chapter 7) and the user John 
(in Chapter 8) who is assigned to this group. Recall that the Clerks group was created 
without any application access privileges. 


1. Login to the application using John’s credentials and see that 
no application menu is available to this user. 


2. Login using the application’s administrator credentials. 


3. From the Setup menu, select the User Groups option and then 
select the existing Clerks group. Allow access to the Select, 
Transactions, Utilities, Reports, and Feedback menus for this 


group. 


4. Login again as user John and observe that the five menu 
options are now accessible. 


32.3 Authorization Schemes for Application 
Pages 


After controlling the main menu access, your next task is to control the application pages 
that are usually executed through submenus (except for the pages associated with the 
Select and Transactions menus). Go to Shared Components and create the authorization 
scheme listed in Table 32-4. This is the only authorization scheme that controls access 

to all application pages. The text defined in the “Identify error message” attribute is a 
custom message with a link to take the unauthorized user to the Select page (page 30), 
which is usually granted to every application user. 
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Table 32-4. Authorization Scheme for Application Pages 


Attribute Value 
Name Page Access 
Scheme Type PL/SQL Function Returning Boolean 
PL/SQL Function Body DECLARE 
Book_Code\Chapter32\ Vadmin varchar2(1); 
Page Access Authorization.txt Vallow varchar2(1); 
BEGIN 


SELECT admin INTO Vadmin FROM gl_users 
WHERE upper(userid)=upper(:APP_USER); 
IF Vadmin = 'N' THEN 
SELECT allow_access INTO Vallow FROM gl_ 
groups detail 
WHERE pagelD=: APP PAGE ID AND 
segmentType="'Page' AND 
groupID=(select groupID from gl users 
where upper(userid)=upper 
(:APP USER)); 
if Vallow='Y' then 
return true; 
else 
return false; 
end if; 
ELSE 
return true; 
END IF; 
EXCEPTION 
WHEN NO DATA FOUND THEN RETURN FALSE; 
END; 


Identify error message... You are not authorized to view this page! <br/> 
Click <a href="f?p=&APP_ID.:30:&SESSION.">here</ 
a> to continue. 


Validate authorizationscheme Once per page view 
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32.4 Test Page Authorization 


Execute the following steps to test the page authorization: 


1. Edit page 54 (Copy COA). Click its root node (page 54: Copy 
COA). In the Properties pane, scroll down to the Security 
section and set the Authorization Scheme attribute to Page 
Access. Save the modification. 


2. Login to the application using John’s credentials. Expand the 
Utilities menu and click the Copy Chart of Accounts option. 
The message defined in the previous table will appear and 
prevent you from accessing the page. Click the "here” link, 
which will take you to the Select page. 


3. Login as the application administrator and allow John's group 
to access the Copy COA segment. 


4. Login again using John's credentials and click the Copy COA 
menu option. This time the page will come up. 


5. Using step 1, apply the Page Access authorization scheme to 
all application pages except for the two pairs of global and 
login pages created for the desktop and mobile interfaces. 


32.5 Authorization Schemes for Buttons 


An application page usually contains several different types of items. From a security 
point of view, the most significant item is the button, which is used to send a request 

for further processing. You used six buttons (Save, Create, Modify, Delete, Display, and 
Print) to handle different processes in this application. In this section, you will control 
the application processes by creating some authorization schemes for these buttons. 
Table 32-5 creates an authorization scheme to control the Save buttons on all application 
pages. Use this table to create schemes for the remaining five buttons, replacing the text 
itemRole="Save' with the appropriate button name. 
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Table 32-5. Button Authorization Schemes 


Attribute Value 
Name Save 
Scheme Type PL/SQL Function Returning Boolean 
PL/SQL Function Body DECLARE 
Book_Code\Chapter32\ Vadmin varchar2(1); 
Button Authorization.txt Vallow varchar2(1); 
BEGIN 


SELECT admin INTO Vadmin FROM gl users 
WHERE upper(userid)=upper(: APP USER); 
IF Vadmin = 'N' THEN 
SELECT allow access INTO Vallow FROM 
gl groups detail 
WHERE pagelD=: APP PAGE ID AND 
itemRole='Save' AND 
groupID=(select groupID from 
gl users where 
upper(userid)=upper 
(:APP USER)); 
if Vallow='Y' then 
return true; 
else 
return false; 
end if; 
ELSE 
return true; 
END IF; 
EXCEPTION 
WHEN NO_DATA_FOUND THEN RETURN FALSE; 
END; 


Identify error message... Save button authorization scheme violated 


Validate authorization scheme Once per page view 
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32.6 Test Buttons Authorization 


Execute the following steps to test the button authorization: 


1. Edit page 54 (Copy COA). Click the Copy button. In the 
Properties pane, scroll down to the Security section and 
set the Authorization Scheme attribute to Save. Save the 
modification. 


2. Login using John’s credentials and run the page from the 
Utilities menu. The button has vanished from the page, 
because John’s group was created without any application 
access privileges. 


3. Login as the application administrator and grant access to 
this button to the Clerks group. 


4. Login as John. This time the Copy button on the Copy COA 
page will be visible. 


5. Using Table 32-6, apply the relevant authorization schemes to 
all buttons on all application pages. 


Table 32-6. Applying Authorization Schemes 


Menu = Page Buttons og Authorization Schemes 


AUTHORIZATION 
MENU/PAGE/BUTTONS PAGEID 
SCHEME 





(continued) 
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Table 32-6. (continued) 


(Save) 














Generate 


Save 


Delete 





Create 








Create 


Apply Changes 
(Save) 


Delete 





Create 





Save 


Delete 








Create 
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= 


Save 
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Table 32-6. (continued) 


Delete 





Submit 


Delete 
(MULTI ROW DELETE) 





Submit 


Delete 
(MULTI ROW DELETE) 





Create 





Create 


Apply Changes 
(Save) 


Delete 





Allow & Disallow 
(both) 


Delete 





Allow/Revoke 





(continued) 
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Table 32-6. (continued) 





Create 










Create 


Apply Changes 
(Save) 


Delete 





Switch Company 


Switch Year 


Switch Month 





Create 








Create 


Save 


Delete & 
APPLY CHANGES MRD 


(continued) 
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Table 32-6. (continued) 





Submit 














Toit 


Apply Changes 
(Save) 









User Defined, 
Last Year Budge & 
Last Year Actual 


Delete 
(MULTI_ROW_DELETE) 


Submit 





Reset Password 








(continued) 
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Table 32-6. (continued) 


Display 
















Print 












Display 


Print 





Display 


Print 


Verify 








Close Month 


Execute TYE (Go) 


Go 
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Note When applying security to a button, remember to also apply equal security 
constraints to the process that is invoked when the button is clicked. For example, the 
Authorization Scheme attribute of the Copy COA process on page 54 must be set to Save. 
This way, the process is also attached to the authorized scheme that matches the button to 
avoid access-control vulnerability. 


32./ Summary 


In this chapter, you learned how to apply strong security on each component of your 
APEX application. Either through an application page or a button on that page, you can 
control user access to all application components. 


32.8 Conclusion 


The main objective behind this book was to give you insight into developing business 
applications for the cloud. You can develop such applications and offer them to the 
business community under the software as a service model. Now, why should you use 
Oracle APEX for this? It’s simply because Oracle APEX is a rising platform in which you 
can develop Internet-facing applications rapidly, as you have just experienced. Besides 
being a rapid application development tool, Oracle APEX offers many features that are 
lacking in other web development platforms. The new IDE has made the process of 
application development much easier than ever before. The strong navigation features 
found in APEX cannot be created that easily in any other development tool. Using 

the shared components, you can use application components and logic in more than 
one place. Eye-catching charts and mobile application development are among many 
other features offered by this platform for rapid application development, but the most 
important one is the use of less code that is required when you are implementing custom 
application logic. In addition, everything can easily be handled through the built-in 
features. In a nutshell, Oracle APEX has made the life of developers significantly easier. 
With this development platform, you can create any kind of business application instantly 
to meet the challenges of today’s ever-evolving business world. 

I have tried my best to make this an error-free book, but flaws might still exist for 
which I sincerely apologize. Please let me know of any errors at my e-mail address 
(oratech@cyber.net.pk) so that I can post corrections on my blog page: http: // 
cloudcomputingusingoracleapex.blogspot.com/2015/03/errata.html. 

The last word: I have plans to write more books like this on other ERP modules. If you 
liked this work and want me to go ahead with my plans, then drop me a line at my e-mail 
address indicating your area of interest. I'll write the next APEX book on the subject with 
the most votes. 

Thank you! 
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Chapter 4 


Generate Fiscal Year 


declare 
Vyear number; 
VleapYear number; 


begin j 
Vyear := :P5_YEAR; 
if :P5_MONTH = 7 then 


:P5 MONTH1 := ‘July’; 


5 å 3757 : + = + 
Companies ABC & Company = ear z015 Morith July 


:P5 FROM1 := '01-07-'||Vyear; -- Stores 01-07-2015 in the page item 
:P5 FROM1 
:P5 TO1 := '31-07-'||Vyear; -- Stores 31-07-2015 in the page item 
:P5 TO1 
-- 'August ' 


:P5_MONTH2 := 'August'; 

:P5 FROM2 := '01-08-'||Vyear; 

:P5 TO2 := '31-08-'||Vyear; 
-- 'September ' 

:P5_MONTH3 := 'September'; 

:P5 FROM3 := '01-09-'||Vyear; 

:P5_T03 := '30-09-'||Vyear; 
-- ‘October ' 

:P5 MONTH4 := "October; 

:P5 FROM4 := '01-10-'||Vyear; 

:P5 TO4 := '31-10-'||Vyear; 
-- ‘November ' 

:P5 MONTHS := ‘November’ ; 

:P5 FROMS := '01-11-'||Vyear; 

:P5 TOS := '30-11-'||Vyear; 
-- ‘December ' 

:P5 MONTH6 := ‘December’ ; 

:P5 FROM6 := '01-12-'||Vyear; 
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:P5 TO6 := '31-12-'||Vyear; 


Vyear := Vyear+1; 


‘January’ 

:P5 MONTH7 := ‘January’ ; 

:P5 FROM7 := '01-01-'||Vyear; 
:P5 TO7 := '31-01-'||Vyear; 
‘February’ 

:P5 MONTH8 := ‘February’ ; 

:P5 FROM8 := '01-02-'||Vyear; 


VleapYear := mod(Vyear,4); 
if VleapYear=0 then 


:P5 TO8 := '29-02-'||Vyear; 


else 
:P5 TO8 := '28-02-'||Vyear; 
end if; 
‘March’ 
:P5 MONTH9 := ‘March’; 
:P5 FROM9 := '01-03-'||Vyear; 


:P5 TO9 := '31-03-'||Vyear; 
‘April ' 

:P5 MONTH10 := ‘April’; 

:P5 FROM10 := '01-04-'||Vyear; 
:P5 T010 := '30-04-'||Vyear; 


‘May’ 
:P5 MONTH11 := ‘May’; 

:P5 FROM11 := '01-05-'||Vyear; 
:P5 TO11 := '31-05-'||Vyear; 
‘June’ 

:P5 MONTH12 := ‘June’; 

:P5 FROM12 := '01-06-'||Vyear; 
:P5 1012 := '30-06-'| |Vyear; 


end if; 


end; 


Save Fiscal Year 


BEGIN 


Incremented the Vyear value 
to set the next year in 
January 


-- Evaluate leap year 


insert into gl fiscal year values (:P5 COMPANIES, :P5 YEAR,1,:P5 MONTH1, 


TO DATE(:P5 FROM, ‘DD-MM-YYYY') ,TO_ 
DATE(:P5 TO1, 'DD-MM-YYYY'),1,0,0,null); 


insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,2,:P5 MONTH2, 
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insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,3,:P5 MONTH3, 
TO_DATE(:P5_FROM3, 'DD-MM-YYYY') , TO_ 
DATE(:P5 T03, 'DD-MM-YYYY' ),1,0,0,null); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,4,:P5 MONTH4, 
TO DATE(:P5 FROM4, 'DD-MM- 
YYYY'),TO DATE(:P5 TO04, 'DD-MM- 
YYYY'),1,0,0,null); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,5,:P5 MONTHS, 
TO DATE(:P5 FROM5, 'DD-MM-YYYY') , TO_ 
DATE(:P5 TO05, 'DD-MM-YYYY' ),1,0,0,null); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,6,:P5 MONTH6, 
TO DATE(:P5_FROM6, 'DD-MM-YYYY'),TO_ 
DATE(:P5_T06,'DD-MM-YYYY'),1,0,0,nul1); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,7,:P5 MONTH7, 
TO_DATE(:P5_FROM7, 'DD-MM-YYYY"),TO_ 
DATE(:P5_T07,'DD-MM-YYYY'),1,0,0,nul1); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,8,:P5 MONTH8, 
TO DATE(:P5_FROM8, 'DD-MM-YYYY'),TO_ 
DATE(:P5_T08,'DD-MM-YYYY'),1,0,0,nul1); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,9,:P5 MONTH9, 
TO_DATE(:P5_FROM9, 'DD-MM-YYYY') , TO_ 
DATE(:P5 TO09, 'DD-MM-YYYY' ),1,0,0,null); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,10,:P5 MONTH10, 
TO DATE(:P5 FROM10, 'DD-MM-YYYY' ), TO. 
DATE(:P5 T010, 'DD-MM-YYYY' ),1,0,0,null); 
insert into gl fiscal year values (:P5 COMPANIES,:P5 YEAR,11,:P5 MONTH11, 
TO DATE(:P5 FROM11, 'DD-MM-YYYY") ,TO_ 
DATE(:P5 1011, 'DD-MM-YYYY'),1,0,0,nul1) ; 
insert into gl fiscal year values (:P5 COMPANIES, :P5 YEAR,12,:P5 MONTH12, 
TO DATE(:P5 FROM12, 'DD-MM-YYYY") ,TO_ 
DATE(:P5 1012, 'DD-MM-YYYY'),1,0,0,nul1) ; 
END; 


Fetch Fiscal Year 


DECLARE 
Vrecords number; 
CURSOR fiscal year cur IS SELECT * 
FROM gl fiscal year 
WHERE cocode = :P5 COMPANIES and initial year=1 ORDER BY comonthid; 
fiscal year rec fiscal year curÆROWTYPE; 
BEGIN 
select count(*) into Vrecords from gl fiscal year where cocode=:P5_ 
COMPANIES and initial year=1; 
if Vrecords > 0 then -- The page items will be populated with values 
only when there exist some records 
FOR fiscal year rec IN fiscal year cur LOOP -- Cursor opened to fetch 
records 
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if fiscal year rec.comonthid=1 then 
:P5 YEAR := fiscal year rec.coyear; 
:P5 MONTH := fiscal year rec.comonthname; 
:P5 INITIAL VEAR := fiscal year rec.initial year; 
:P5 MONTH1 := fiscal year rec.comonthname; 
:P5 FROM1 := fiscal year rec.pfrom; 
:P5 TO1 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=2 then 
:P5 MONTH2 := fiscal year rec.comonthname; 
:P5 FROM2 := fiscal year rec.pfrom; 
:P5 TO2 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=3 then 
:P5 MONTH3 := fiscal year rec.comonthname; 
:P5 FROM3 := fiscal year rec.pfrom; 
:P5 T03 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=4 then 
:P5 MONTH4 := fiscal year rec.comonthname; 
:P5 FROM4 := fiscal year rec.pfrom; 
:P5 T04 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=5 then 
:P5 MONTHS := fiscal year rec.comonthname; 
:P5 FROMS := fiscal year rec.pfrom; 
:P5 TO5 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=6 then 
:P5 MONTH6 := fiscal year rec.comonthname; 
:P5 FROM6 := fiscal year rec.pfrom; 
:P5 106 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=7 then 
:P5 MONTH7 := fiscal year rec.comonthname; 
:P5 FROM7 := fiscal year rec.pfrom; 
:P5 107 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=8 then 
:P5 MONTHS := fiscal year rec.comonthname; 
:P5 FROM8 := fiscal year rec.pfrom; 
:P5 TO8 := fiscal year rec.pto; 

end if; 

if fiscal year rec.comonthid=9 then 
:P5 MONTH9 := fiscal year rec.comonthname; 
:P5 FROM9 := fiscal year rec.pfrom; 
:P5 TO9 := fiscal year rec.pto; 

end if; 
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if fiscal year rec.comonthid=10 then 


:P5 MONTH10 


:P5 FROM10 
:P5 TO10 


end if; 


if fiscal year rec.comonthid=11 then 


:P5 MONTH11 


:P5 FROM11 
:P5 TO11 


end if; 


if fiscal year rec.comonthid=12 then 

:= fiscal year rec.comonthname; 
:= fiscal year rec.pfrom; 

:= fiscal year rec.pto; 


:= fiscal year rec.comonthname; 
:= fiscal year rec.pfrom; 
:= fiscal year rec.pto; 


:= fiscal year rec.comonthname; 
:= fiscal year rec.pfrom; 
:= fiscal year rec.pto; 
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-- The fiscal year of the selected company doesn’t exist, 


so make all page items as null 


:P5 MONTH12 

:P5 FROM12 

:P5 1012 

end if; 
END LOOP; 
else 

:P5 VEAR NULL; 
:P5 INITIAL YEAR 
:P5 MONTH := NULL; 
:P5 MONTH1 := NULL 
:P5 FROM1 := NULL; 
:P5 TO1 := NULL; 
:P5 MONTH2 := NULL 
:P5 FROM2 := NULL; 
:P5 102 := NULL; 
:P5 MONTH3 := NULL 
:P5 FROM3 := NULL; 
:P5 103 := NULL; 
:P5 MONTH4 := NULL 
:P5 FROM4 := NULL; 
:P5 104 := NULL; 
:P5 MONTHS := NULL 
:P5 FROMS := NULL; 
:P5 105 := NULL; 
:P5 MONTH6 := NULL 
:P5 FROM6 := NULL; 
:P5 106 := NULL; 
:P5 MONTH7 := NULL 
:P5 FROM7 := NULL; 
:P5 TO7 := NULL; 
:P5 MONTH8 := NULL 
:P5 FROM8 := NULL; 
:P5 108 := NULL; 
:P5 MONTH9 := NULL 
:P5 FROM9 := NULL; 


:= NULL; 


3 


3 


3 


3 


3 


3 


3 


3 


3 
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:P5 109 := NULL; 

:P5 MONTH10 := NULL; 
:P5 FROM10 := NULL; 
:P5 1010 := NULL; 
:P5 MONTH11 := NULL; 
:P5 FROM11 := NULL; 
:P5 TO11 := NULL; 
:P5 MONTH12 := NULL; 
:P5 FROM12 := NULL; 
:P5 1012 := NULL; 

end if; 
END; 


Page Items to Return 


P5 VEAR,P5 MONTH,P5 INITIAL VEAR,P5 MONTH1,P5 FROM1,P5 TO1,P5 MONTH2, 

PS FROM2,P5 T02,P5 MONTH3, 

P5 FROM3,P5 T03,P5 MONTH4,P5 FROM4,P5 TO4,P5 MONTH5,P5 FROM5,P5 TO5, 

P5 MONTH6,P5 FROM6,P5 TO6, 

P5 MONTH7,P5 FROM7,P5 107,P5 MONTH8,P5 FROM8,P5 TO8,P5 MONTH9,P5 FROM9, 

P5 T09,P5 MONTH10, 

PS FROM10,P5 TO10,P5 MONTH11,P5 FROM11,P5 TO11,P5 MONTH12,P5 FROM12,P5 T012 


Check Transaction 


declare 
l count number; 
begin 
select count(*) into 1 count from gl tran master where cocode = :P5_ 
COMPANIES; 
if l count > 0 then 
return false; -- Displays the message: Can’t delete, 
transactions exist in this year 
else 
return true; 
end if; 


The PL/SQL code stores the number of transactions of the selected company in the |_count variable. 


end; A value greater than zero in this variable means the existence of transactions. In such case, the code 
returns false to prevent fiscal year deletion. 
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Chapter 5 


Check Transaction 


DECLARE 
l count number; 
BEGIN 
select count(*) into l count from gl tran master where vchcode = :P8_ 
VCHCODE; 
if 1 count > 0 then 
return false; 
else 
return true; 
end if; 
END; 
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Chapter 6 


Tree Query 


select case when connect by isleaf = 1 then O when level = 1 then 1 else -1 
end as status, 

level, 

segmenttitle as title, 

NULL as icon, 

segmentid as value, 

‘View’ as tooltip, 

apex util.prepare url('f?p="||:APP_ID||':20:'||:APP_ 
SESSION| |'::NO::P20 SEGMENTID:'||segmentid) as link 
from gl segments 
start with segmentparent = 0 
connect by prior segmentid = 
order siblings by segmentid 


segmentparent 


Check Segment 


DECLARE 
Vutilized number := 0; 
Verrortext varchar2(60); 
BEGIN 
select count(*) into Vutilized from gl groups detail where 
segmentId=:P20 SEGMENTID; 
if Vutilized > 0 then 
Verrortext := ‘Cannot delete this segment because it is utilized’; 
end if; 
return rtrim(Verrortext) ; 
END; 


Check Child Segment 


DECLARE 
VchildExist number := 0; 
Verrortext varchar2(60); 
BEGIN 
select count(*) into VchildExist from gl segments where 
segmentParent=:P20 SEGMENTID; 
if VchildExist > 0 then 


Verrortext := ‘Cannot delete, this segment has child entries”; 
end if; 
return rtrim(Verrortext) ; 


END; 
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Chapter 7 


Create New Group 


DECLARE 
VsegmentID number := 0; 
VsegmentParent Number; 
VsegmentType varchar2(4); 
VpageID number := 0; 
VitemRole varchar2(10); 
Vallow varchar2(1); 
VmasterRow number := 0; 


cursor segments cur is 

select * 

from gl segments 

order by segmentID; 

segments rec segments curÆROWTYPE; 


BEGIN 
if :request='Allow’ then -- The request came from the Allow button 
labeled Create Group - Allow All 
Vallow := 'Y'; 
else 
Vallow := 'N'; 
end if; 







for segments rec in segments cur loop 
VsegmentID := segments rec.segmentID; 
VsegmentParent := segments rec.segmentParent; 
VsegmentType := segments rec.segmentlype; 


| If the group is created using the Allow 


VpagelD e= segments rec. pageID; butten. then Y (for Yes) will be saved In 
i Fa Å 2 the database table. On the contrary, if 
VitemRole := segments rec i itemRole; the request is sent through the Disallow 


if VmasterRow = 0 then butten. N (for No) will be saved. 


insert into gl groups master values 
(:P21 GROUPID2,:P21 GROUPTITLE2); 
commit; 
VmasterRow := 1; -- Master row switch turned off 
end if; 
insert into gl groups detail values 
(:P21 GROUPID2,VsegmentID, VsegmentParent, VsegmentType, VpageID, VitemRo 
le, Vallow); 
commit; 
end loop; 
END; 
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Tree Query 


select case when connect by isleaf = 1 then O when level = 1 then 1 else -1 
end as status, 
level, 
segmenttitle as title, 
NULL as icon, 
segmentid as value, 
'View Right' as tooltip, 
‘javascript: pageItemName('||apex_escape.js_ 
literal(segmentid)||')' as link 
from gl segments 
Start with segmentparent = 0 
connect by prior segmentid = segmentparent 
order siblings by segmentid 


Allow Access 


DECLARE 
VrecordExist number := 0; 
Vallow varchar2(1); 
Vsegmenttype varchar2(4); 
Vpageid number; 
Vitemrole varchar2(10); 
BEGIN 
select count(*) into VrecordExist from gl groups detail 
where groupID=:P21 GROUPID1 and segmentID=:P21 SELECTED NODE; 
if VrecordExist = 1 then 
select allow access into Vallow from gl groups detail 
where groupID=:P21 GROUPID1 and segmentID=:P21 SELECTED NODE; 
if Vallow="Y" then -- If the group is currently allowed to access 
this segment, then 











Vallow := 'N'; -- revoke it 

else -- If currently the segment is not allowed, then 
Vallow := 'Y';  -- allow it 

end if; It's a new segment that is added to the 


application after the group creation. The 
ELSE block will add such segments to the 
group with disallowed privilege. 


update gl groups detail 
set allow access=Vallow 
where groupID=:P21 GROUPID1 and segmentID=: 
P21 SELECTED NODE; 
commit; 
else 
select segmenttype,pageid,itemrole into Vsegmenttype,Vpageid,Vitemrole 
from gl segments 
where segmentID=:P21 SELECTED NODE; 
insert into gl groups detail values (:P21 GROUPID1,:P21 SELECTED NODE, 
null,Vsegmenttype, VpageID,Vitemrole, 'N'); 
commit ; 
end if; 
END; 
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Chapter 8 
SQL Query 


select "U"."ROWID", 

"U". "USERID", 

"G" ."GROUPTITLE", 
C"."CONAME", 
U"."COYEAR", 
F"."COMONTHNAME", 

"U". "PASSWORD", 
y" 
R 


. ADMIN" 
from "GL USERS" "U", "GL GROUPS MASTER" "G", "GL COMPANY" "C", "GL _FISCAL_ 
YEAR" "F" 
where "U"."COCODE"="C"."COCODE" and "U"."GROUPID"="G"."GROUPID" and 
"U"."COCODE "'="F"."COCODE" and 

"U"."COYEAR"="F"."COYEAR" and "U"."COMONTHID"="F"."COMONTHID'" 


Company Year Month 


DECLARE 
Vcoyear number; 

BEGIN 
select max(coyear) into Vcoyear from gl fiscal year where cocode=:P23 
COMPANY; 
update gl users set cocode=:P23 COMPANY,coyear=Vcoyear,comonthID=1 where 
userid=:P23 USERID; 
commit; 

END; 


Chapter 9 


Custom Functions 


This function should be wrapped, as the hash algorithm is exposed here. See my blog post 
"Protecting Your Code with Oracle's Wrap Utility”: 

http://oracleapex5.blogspot.com/2015/05/protecting-your-code-with- 
oracles-wrap.html 


-- CUSTOM HASH FUNCTION 
create or replace function custom hash (p userName in varchar2, p password 
in varchar2) return varchar2 is 
I password varchar2(4000) ; 
l salt varchar2(4000) := 'XV1MH24EC1IHDCQHSS6XQ60TISANT3' ; 
begin 
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l password := utl raw.cast to raw(dbms obfuscation toolkit.md5(input_ 
string => p password || substr(l salt,10,13) || 
p userName || substr(l salt, 4,10))); 
return 1 password; 
end; 


The CUSTOM AUTH function receives username and password on line # 1 as parameters 
from the login form and compares this information with the values stored in the GL_ 
USERS table after applying the CUSTOM HASH function. If the provided information 
matches with the table values, the user is authenticated and is allowed to access the 
application. 


-- CUSTOM AUTH FUNCTION 
create or replace function custom auth (p userName in VARCHAR2, p password 
in VARCHAR2) return BOOLEAN is 
l password varchar2(4000) ; 
1 stored password varchar2(4000); 
l count number; 
begin 
select count(*) into l count from gl users where userID = p userName; 
if l count > O then 
select password into 1 stored password from gl users where userID = 
p userName; 
l password := custom hash(p userName, p password); 
if l password = I stored password then 
return true; 


else 
return false; 
end if; 
else 
return false; 
end if; 
end; 
Check User ID 
DECLARE 
Verrortext varchar2(100) ; 
BEGIN 
if :P56 USERID is null and :P56 USERID2 is null THEN 
Verrortext := ‘No user selected for the reset password process’ ; 
end if; 
return rtrim(Verrortext) ; 
END; 
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BEGIN 
if :P56 PASSWORD1 = 
return true; 
else 
return false; 
end if; 
END; 


Update Password 


BEGIN 


APPENDIX ™ BOOK CODE 


:P56 PASSWORD2 then 


if :P56 USERID is not null then 


update gl users set 
PASSWORD1 ) 
where upper(userID) 
else 
update gl users set 
PASSWORD1 ) 
where upper(userID) 
end if; 
commit ; 
END; 


password = custom hash(:P56 USERID, 
= upper(:P56 USERID); 
password = custom hash(:P56 USERID2, 


= upper(:P56 USERID2) ; 


:P56_ 


P56. 
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Chapter 10 


Switch Company 


DECLARE 
Vadmin varchar2(1); 
Vallow varchar2(1); 
VcurrentCompany number; 
Verrortext varchar2(60); 
BEGIN 
select admin into Vadmin from gl users where upper(userid)=upper(:APP_ 
USER); 
if Vadmin = 'N' then 
select allow access into Vallow from gl groups detail 
where segmentID=(select segmentID from gl segments where 
segmentTitle="Switch Company’ and 
segmentType="Item') and groupID=(select groupID from gl 
users where upper(userid)=upper(:APP USER)); 
if Vallow='N' then 
select cocode into VcurrentCompany from gl users where 
upper(userid)=upper(:APP USER); 
if :P30 COMPANY <> VcurrentCompany then 


Verrortext := ‘You are not allowed to switch company’ ; 
end if; 
end if; 

end if; 

return rtrim(Verrortext); 
END; 
Switch Year 
DECLARE 


Vadmin varchar2(1); 

Vallow varchar2(1); 

VcurrentYear number; 

Verrortext varchar2(60); 
BEGIN 
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select admin into Vadmin from gl users where upper(userid)=upper 
(:APP USER); 
if Vadmin = 'N' then 
select allow access into Vallow from gl groups detail 
where segmentID=(select segmentID from gl segments where 
segmentTitle="Switch Year’ and 
segmentType="Item') and groupID=(select groupID from 
gl users where upper(userid)=upper(:APP USER)); 
if Vallow='N' then 
select coyear into VcurrentYear from gl users where 
upper(userid)=upper(:APP USER); 
if :P30 YEAR <> VcurrentYear then 


Verrortext := ‘You are not allowed to switch year”; 
end if; 
end if; 

end if; 

return rtrim(Verrortext); 
END; 
Switch Month 
DECLARE 


Vadmin varchar2(1); 

Vallow varchar2(1); 

VcurrentMonth number; 

Verrortext varchar2(60); 

BEGIN 

select admin into Vadmin from gl users where upper(userid)=upper 

(:APP USER); 

if Vadmin = 'N' then 
select allow access into Vallow from gl groups detail 
where segmentID=(select segmentID from gl segments where 
segmentTitle="Switch Month" and 


325 


APPENDIX ™ BOOK CODE 


segmentType="Item') and groupID=(select groupID from gl 
users where upper(userid)=upper(:APP USER)); 
if Vallow='N' then 
select comonthid into VcurrentMonth from gl users where 
upper(userid)=upper(:APP USER); 
if :P30 MONTH <> VcurrentMonth then 


Verrortext := ‘You are not allowed to switch month'; 
end if; 
end if; 

end if; 

return rtrim(Verrortext); 
END; 
User Profile 
DECLARE 


Vconame varchar2(50); 
vcoyear number; 
vcomonthname varchar2(9); 
Vuserprofile varchar2(100); 
BEGIN 
select distinct c.coname,f.comonthname,u.coyear into 
vconame , vcomonthname, vcoyear 
from gl company c, gl users u, gl fiscal year f 
where c.cocode=u.cocode and c.cocode=f.cocode and f.comonthid=u. 
comonthid and 
upper (u.userid)=upper(:APP USER); 


Vuserprofile := trim(Vconame)||' ‘| |trim(Vcomonthname)||', '||Vcoyear; 
return Vuserprofile; 
END; 
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Chapter 11 


Evaluate Level 


if length(:P14 CCCODE) = 2 then 
:P14 CCLEVEL := 1; 

elsif length(:P14 CCCODE) = 5 then 
:P14 CCLEVEL := 2; 


else 

:P14 CCLEVEL := 0; 
end if; 
Check Parent Level 
DECLARE 


VparentFound number := 0; 
VparentCode varchar2(2); 
BEGIN 

if :P14 CCLEVEL = 2 then 
VparentCode := substr(:P14 CCcode,1,2); 
select count(*) into VparentFound from gl cost center where 
CCcode=trim(VparentCode) and CClevel=1 and 
cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)); 
if VparentFound = 0 then 

return false; 


else 
return true; 
end if; 
end if; 
END; 
Check Child Level 
DECLARE 
VchildFound number := 0; 
BEGIN 


select count(*) into VchildFound from gl cost center where CCcode like 
:P14 CCcode||'%' and CClevel > :P14 CClevel 
and cocode=(select cocode from gl users where upper(userid)=upper 
(:app user)); 
if VchildFound > 0 then 
return false; 
else 
return true; 
end if; 
END; 
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Check in Transaction 


DECLARE 
Vdependent number := 0; 
BEGIN 
select count(*) into Vdependent from gl tran detail where CCcode = 
:P14 CCcode and 
cocode = (select cocode from gl users where upper(userid) = upper 
(:app user)); 
if Vdependent > 0 then 
return false; 
else 
return true; 
end if; 
END; 


Disallow Code Modification 


DECLARE 
Vdbcccode varchar2(5); 
BEGIN 
select cccode into Vdbcccode from gl cost center where ROWID=:P14 ROWID; 
if :P14 CCcode <> Vdbcccode then 
return false; 
else 
return true; 
end if; 
END; 


Save Record 


DECLARE 
Vcocode number; 
BEGIN 
select cocode into Vcocode from gl users where upper(userid)=upper(:APP_ 
USER); 
if :P14 ROWID is null then -- New Record 
insert into gl cost center values (Vcocode,:P14 CCcode,:P14_ 
CCtitle,:P14 CClevel); 
else 
update gl cost center set CCtitle=:P14 CCtitle where ROWID=:P14 ROWID; 
end if; 
END; 
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Chapter 12 


Evaluate Level 


if length(:P16 COACODE) = 1 then 
:P16 COALEVEL := 1; 

elsif length(:P16 COACODE) = 3 then 
:P16 COALEVEL := 2; 

elsif length(:P16 COACODE) = 6 then 
:P16 COALEVEL := 3; 

elsif length(:P16 COACODE) 
:P16 COALEVEL := 4; 

else 
:P16 COALEVEL := 0; 

end if; 


11 then 


Evaluate Nature 


if :P16 COALEVEL = 2 or :P16 COALEVEL = 3 or :P16 COALEVEL = 4 then 
select coanature into :P16 NATURE DISPLAY from gl coa where 
coacode=substr(:P16 COACODE,1,1) and coalevel=1 and 
cocode=(select cocode from gl users where upper(userid) = upper 


(:app user)); 
end if; 


The nature for level 2, 3, and 4 accounts is evaluated using the first level. For example, if you select the account of 
A.B.Enterprises, then the previous select statement will evaluate the first level of this account using substr(:P16 COACODE.1,1) 


and coalevel=1 conditions. The substr function will return 2, which is set for the Liabilities nature. 





Check Parent Level 


DECLARE 
VparentFound number := 0; 
VparentCode varchar2(11); 
BEGIN 





-- First level will not be checked because it doesn't have parent 

if :P16 COALEVEL = 2 then 
VparentCode := substr(:P16 COAcode,1,1); 
select count(*) into VparentFound from gl coa where 
COAcode=trim(VparentCode) and COAlevel=1 and 
cocode=(select cocode from gl users where upper(userid)=upper 
(:APP_USER)); 

end if; 


if :P16 COALEVEL = 3 then 
VparentCode := substr(:P16 COAcode,1,3); 
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select count(*) into VparentFound from gl coa where 
COAcode=trim(VparentCode) and COAlevel=2 and 
cocode=(select cocode from gl users where upper(userid)=upper 
(:APP_USER)); 

end if; 


if :P16 COALEVEL = 4 then 
VparentCode := substr(:P16 COAcode,1,6); 
select count(*) into VparentFound from gl coa where 
COAcode=trim(VparentCode) and COAlevel=3 and 
cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)); 
end if; 
if VparentFound = 0 and :P16 COAlevel <> 1 then -- No parent level 
found and the 
account is not 
parent itself 
return false; -- Displays the 
message: Parent 
level not found 
else 
return true; 
end if; 
END; 


Check Child Level 


DECLARE 
VchildFound number : 
BEGIN 
select count(*) into VchildFound from gl coa where COAcode like :P16_ 
COAcode||'%' and COAlevel > :P16 COAlevel and 
cocode=(select cocode from gl users where upper(userid)=upper(:app_ 
user)); 
if VchildFound > 0 then 
return false; 
else 
return true; 
end if; 
END; 


0; 
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Check In Transaction 


DECLARE 
Vdependent number := 0; 
BEGIN 
select count(*) into Vdependent from gl tran detail where COAcode = 
:P16 COAcode and 
cocode = (select cocode from gl users where upper(userid) = upper 
(:app user)); 
if Vdependent > 0 then 
return false; 
else 
return true; 
end if; 
END; 


Disallow Code Modification 


DECLARE 
VdbCOAcode varchar2(11); 


BEGIN 
select COAcode into VdbCOAcode from gl coa where ROWID=:P16 ROWID; 


if :P16 COAcode <> VdbCOAcode then 
return false; 
else 
return true; 
end if; 
END; 
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Save Record 


DECLARE 
Vcocode number; 
BEGIN 
select cocode into Vcocode from gl users where upper(userid)=upper( 
: APP USER); 
if :P16 ROWID is null then -- New Record 
if :P16 COAlevel = 1 then -- Group Level 1 
insert into gl coa values (Vcocode,:P16 COAcode,:P16 COAtitle, 
:P16 COAlevel,:P16 COAnature,null,null); 
elsif :P16 COAlevel = 2 or :P16 COAlevel = 3 then -- Group Levels 


(2 and 3) 
insert into gl coa values (Vcocode,:P16 COAcode,:P16 COAtitle, 
:P16 COAlevel,:P16 nature display,null,null); 

else -- 4th Level 
insert into gl coa values 
(Vcocode, :P16 COAcode,:P16 COAtitle,:P16 COAlevel, 
:P16 nature display,:P16 COAtype,:P16 CCcode); 


end if; 
else -- Record being edited 
if :P16 COAlevel = 1 then -- Group Levels 1 


update gl coa set COAtitle=:P16 COAtitle, COAlevel= 
:P16 COAlevel, COAnature=:P16 COAnature where 
ROWID=:P16 ROWID; 
elsif :P16 COAlevel = 2 or :P16 COAlevel = 3 then -- Group Levels 
(2 and 3) 
update gl coa set COAtitle=:P16 COAtitle, COAlevel= 
:P16 COAlevel, COAnature=:P16 nature display where 
ROWID=:P16 ROWID; 
else -- 4th Level 
update gl coa set COAtitle=:P16 COAtitle, COAlevel=:P16 COAlevel, 
COAnature=:P16 nature display, 
COAtype=:P16 COAtype, CCcode=:P16 CCcode where ROWID=:P16 ROWID; 
end if; 
end if; 
END; 


Although the update statement contains all columns, you can only modify title, account type, and cost 





center information on the form. 


Delete Record 


DELETE FROM gl coa WHERE rowid = :P16 ROWID; 
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Chapter 13 


Select Different Companies 


DECLARE 
Verrortext varchar2(100) ; 


BEGIN 


if :P54 SOURCE = :P54 TARGET THEN 


Verrortext := ‘Source and Target companies must be different.’ ; 


end if; 
return rtrim(Verrortext) ; 


END; 


Check Source COA 


DECLARE 
VcoaRecords number := 0; 
Verrortext varchar2(200) ; 


BEGIN 


select count(*) into VcoaRecords from gl coa where cocode=:P54 SOURCE; 
if VcoaRecords <= 0 THEN 


Verrortext := ‘Chart of Accounts of the Source company does not 
exist’; 


end if; 
return rtrim(Verrortext) ; 


END; 
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Check Target COA 


DECLARE 
VcoaRecords number := 0; 
Verrortext varchar2(200); 
BEGIN 
select count(*) into VcoaRecords from gl coa where cocode=:P54 TARGET; 
if VcoaRecords > 0 THEN 


Verrortext := ‘Chart of Accounts already exists for the target 
company’ ; 
end if; 
return rtrim(Verrortext) ; 
END; 
Copy COA 
DECLARE 


Vcoacode varchar2(11); Vcoatitle varchar2(50); Vcoalevel number(1); 
Vcoanature varchar2(11); Vcoatype varchar2(11); 
Vcccode varchar2(5); 
cursor coa cur is select * from gl coa where cocode=:P54 SOURCE order by 
coacode, coalevel; 
coa rec coa CurÆROWTYPE; 
BEGIN 
for coa rec in coa cur loop 
Vcoacode := coa rec.coacode; 
Vcoatitle := coa rec.coatitle; 
Vcoalevel := coa rec.coalevel; 
Vcoanature := coa rec.coanature;, 
Vcoatype := coa rec.coatype; 
Vcccode := coa rec.cccode; 
insert into gl coa values (:P54 TARGET, Vcoacode, Vcoatitle, Vcoalevel, Vc 
oanature, Vcoatype, Vcccode) ; 
commit ; 
end loop; 
END; 
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Chapter 14 


Check Number Date 


DECLARE 
Vpfrom date; 
Vpto date; 
Vvoucherfound number := 0; 
Verrortext varchar2(60) ; 
BEGIN 
select count(*) into Vvoucherfound from gl tran master where cocode= 
:P43 COCODE and coyear=:P43 COYEAR and 
comonthid=:P43 COMONTHID and vchcode=:P43 VCHCODE and vchno=:P43 VCHNO; 
select pfrom,pto into Vpfrom,Vpto from gl fiscal year where cocode= 
:P43 COCODE and coyear=:P43 COYEAR and 
comonthid=:P43 COMONTHID; 
if Vvoucherfound > 0 and :request like ‘CREATE%' THEN 
Verrortext := ‘Voucher already exist in the database’ ; 
end if; 
if :P43 VCHDATE not between Vpfrom and Vpto then 
Verrortext := 'Voucher date should fall between '||to char(Vpfrom) | | ' 
and '||to char(Vpto); 


end if; 
if :P43 VCHNO IS NULL or :P43 VCHNO <= 0 then 
Verrortext := ‘Voucher number must be greater than zero’; 
end if; 
return rtrim(Verrortext) ; 
END; 
Check Voucher Details 
DECLARE 


Vrecords number := 0; 
Verrortext varchar2(60); 
BEGIN 
FOR i IN 1 .. apex application.g f02.COUNT LOOP -- select a visible 
tabular form column, else the validation won't execute 
Vrecords := Vrecords + i; 


END LOOP; 
if Vrecords <= 1 then 
Verrortext := 'No data defined in the details section'; 
end if; 
return rtrim(Verrortext); 
END; 
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Check Debit Credit 


DECLARE 
Verrortext varchar2(1000) ; 
BEGIN 
FOR i IN 1 .. apex application.g f02.COUNT LOOP 
if (apex_application.g f10(i) = O and apex application.g f11(i) = 0) 
OR (apex application.g f10(i) <= 0 and 
apex application.g f11(i) <= 0) OR (apex application.g f10(i) <> 0 
and apex application.g f11(i) <> 0) OR 
(apex_application.g f10(i) is null or apex application.g f11(i) is 


null) then 
Verrortext := "Row '||i||':&nbsp;&nbsp;Enter zero or a positive 
amount either in Debit or Credit.<br />'; 
end if; 
END LOOP; 
return rtrim(Verrortext,'<br />'); 


END; 
Voucher Balancing 


DECLARE 
Verrortext varchar2(1000) ; 
Vtotaldebit number := 0; 
Vtotalcredit number := 0; 
Vdifference number := 0; 
BEGIN 
FOR i IN 1 .. apex_application.g f02.COUNT LOOP 
Vtotaldebit := Vtotaldebit + to number(apex application.g f10(i)); 
Vtotalcredit := Vtotalcredit + to number(apex application.g f11(i)); 
END LOOP; 
if Vtotaldebit <> Vtotalcredit then 
Vdifference := Vtotaldebit - Vtotalcredit; 
Verrortext := ‘Voucher is not balanced - Debit='||Vtotaldebit| |' 
Credit=' | |Vtotalcredit||' Difference="||Vdifference; 
end if; 
return rtrim(Verrortext) ; 
END; 
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BEGIN 
if :P43 TRAN NO IS NOT NULL and :P43 CLOSING=0 and 
'N' then 
return true; 
else 
return false; 
end if; 
END; 


Control Navigation Buttons 


-- PL/SQL Function Body code for GET PREVIOUS TRAN_NO 
BEGIN 
if :P43 TRAN NO IS NOT NULL and :P43 CLOSING=0 and 
and :P43 TRAN NO PREV IS NOT NULL 
then 
return true; 
else 
return false; 
end if; 
END; 


-- PL/SOL Function Body code for GET NEXT TRAN NO 
begin 
if :P43 TRAN NO IS NOT NULL and :P43 CLOSING=0 and 
and :P43 TRAN NO NEXT IS NOT NULL 
then 
return true; 
else 
return false; 
end if; 
end; 
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:P43 VCHVERIFIED= 


:P43 VCHVERIFIED="N' 


:P43 VCHVERIFIED="N' 
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Chapter 17 


Report Query 


SELECT 
CO.coname, 
VM.Vchcode, 
VCH.Vchtitle, 
VM.Vchno, 
VM.Vchdate, 
VM.Vchdescription, 
VM.createdby, 
VM.createdon, 
VD.line no, 
VD.COAcode, 
COA.COAtitle, 
VD.CCCode, 
CC.CCTitle, 
VD.Vchdr, 
VD.Vchcr, 
VD.Vchreference, (SELECT TO CHAR(SYSDATE, 'DD-MON-YYYY 
HH24:MI:SS') FROM DUAL) NOW 
FROM GL COMPANY CO, GL VOUCHER VCH, GL COA COA, GL COST CENTER CC, GL TRAN 
MASTER VM, 
GL TRAN DETAIL VD 
WHERE VM.VchCode=:P71_VCHCODE AND VM.Vchdate between :P71 VCHDATEFROM and 
:P71 VCHDATETO AND 
VM.createdon between :P71 CREATEDFROM and :P71 CREATEDTO AND 
VM.vchno BETWEEN :P71 VCHNOFROM and :P71 VCHNOTO AND 
upper (VM.createdby)=upper(:P71 USERID) AND 
VM.cocode=(select cocode from GL USERS where 
upper(userid)=upper(:APP USER)) AND 
VM.cocode=C0.cocode AND 
VM.tran no=VD.tran no AND 
VM. Vchcode=VCH.Vchcode AND 
VD.cocode=COA.cocode AND 
VD.COAcode=COA.COAcode AND 
VD.CCCode=CC.CCCode(+) 
ORDER BY VCHCODE,VCHNO,LINE NO 
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Check Data 


DECLARE 
Vvouchersfound number := 0; 
Verrortext varchar2(100) ; 
BEGIN 
select count(*) into Vvouchersfound from gl tran master VM 
where VM.VchCode=:P71 VCHCODE AND VM.Vchdate between :P71 VCHDATEFROM and 
:P71 VCHDATETO AND 
VM.createdon between :P71 CREATEDFROM and :P71 CREATEDTO AND 
VM.vchno BETWEEN :P71 VCHNOFROM and :P71 VCHNOTO AND 
upper (VM.createdby)=upper(:P71 USERID) AND 
VM.cocode=(select cocode from GL USERS where 
upper(userid)=upper(:APP USER)); 
if Vvouchersfound <= 0 THEN 


Verrortext := ‘No data found for the given criteria ; 
end if; 
return rtrim(Verrortext) ; 


END; 
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Chapter 18 


IR SQL Query 


SELECT coacode, coatitle, tran no, vchdate, vchcode, vchtype, vchno, 
vchdescription, vchdr, vchcr, SUM (vchdr - vchcr) OVER (partition by coacode 
ORDER BY coacode, vchdate, tran no, vchno) as balance 
FROM ( 
SELECT TD.coacode, COA.coatitle, 0 as tran no, to date 
(:P72 FROM, 'DD-MON-YYYY') - 1 as vchdate 
» 0 as vchcode 


j as vchtype 


The SELECT statement calculates opening balances of accounts as of the P72 FROM date. 





, null as vchno 
, Opening Balance as on '||to char(to date 
(:P72 FROM, 'DD-MON-YYYY') - 1) as Vchdescription 

,sum(TD.vchdr) as vchdr 

,sum(TD.vchcr) as vchcr 

»1 AS grp 

FROM gl coa COA, gl voucher VCH, gl tran master TM, gl | 

tran detail TD 

WHERE TM.vchdate < to date(:P72 FROM, 'DD-MON-YYYY') and 

TD. coacode=COA.coacode and 
TD.coacode >= :P72 ACCOUNTFROM and TD.coacode 
<= :P72 ACCOUNTTO and 
TM.cocode=(select cocode from gl users where 
upper (userid)=upper(:APP_USER)) and 
TM.tran no=TD.tran no and TM.vchcode=VCH. 
vchcode and 

COA.cocode=TM.cocode 

GROUP BY TD.coacode, COA.coatitle 


UNION ALL Combines the results of the two SELECT statements. 


SELECT TD.coacode, COA.coatitle, TM.tran no, TM.vchdate 





2 TM. vchcode Retrieves transaction data for the specified period. 
; VCH.vchtype 

; TM.vchno 

j TD.vchdescription 

j TD.vchdr 

P TD.vchcr 


j 2 AS grp 
FROM gl coa COA, gl voucher VCH, gl tran master 
TM, gl tran detail TD 


340 


APPENDIX ™ BOOK CODE 


WHERE TM.vchdate between to date(:P72_FROM, 'DD-MON-YYYY') and 
to date(:P72 TO, 'DD-MON-YYYY') and 
TD.coacode=COA.coacode and TD.coacode >= :P72_ 
ACCOUNTFROM and 
TD.coacode <= :P72 ACCOUNTTO and 
TM.cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) and 
TM.tran no=TD.tran no and TM.vchcode=VCH. 
vchcode and COA.cocode=TM.cocode 


ORDER BY coacode, grp, vchdate, vchno 
PDF Report Query 


SELECT coname, coacode, coatitle, tran no, vchdate, vchtype,vchno, 
vchdescription, vchdr, vchcr, SUM (vchdr - vchcr) 
OVER (partition by coacode ORDER BY coacode, vchdate, tran_no, vchno) as 
balance, 
(SELECT TO CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') FROM DUAL) 
NON, :P72 FROM FromDate, 
:P72 TO ToDate, :P72 ACCOUNTFROM AccountFrom,:P72 ACCOUNTTO 
Accountto 
FROM ( 
SELECT CO.coname, TD.coacode, COA.coatitle, 0 as tran no, 
to date(:P72 FROM, 'DD-MON-YYYY') - 1 as vchdate 


j ‘" as vchtype 
j 0 as vchno 
j '<<< Opening Balance >>>' as Vchdescription 
j sum(TD.vchdr) as vchdr 
; sum(TD.vchcr) as vchcr 
1 AS grp 


32 
FROM gl company CO, gl coa COA, gl voucher VCH, gl tran 
master TM, gl tran detail TD 
WHERE TM.vchdate < to date(:P72 FROM, 'DD-MON-YYYY') and 
TD.coacode=COA.coacode and 
TD.coacode >= :P72 ACCOUNTFROM and TD.coacode 
<= :P72 ACCOUNTTO and 
TM.cocode=(select cocode from gl users where 
upper (userid)=upper(:APP USER)) and 
TM.tran no=TD.tran no and TM.vchcode=VCH. 
vchcode and TM.cocode=C0.cocode and 
COA.cocode=TM.cocode 
GROUP BY CO.coname, TD.coacode, COA.coatitle 


UNION ALL 
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SELECT CO.coname, TD.coacode, COA.coatitle, TM.tran no 


; TM. vchdate 

; VCH.vchtype 

; TM. vchno 

j TD.vchdescription 
: TD.vchdr 

r TD.vchcr 


j 2 AS grp 
FROM gl company CO, gl coa COA, gl voucher VCH, gl tran 
master TM, gl tran detail TD 
WHERE TM.vchdate between to date(:P72 FROM, 'DD-MON-YYYY') and 
to date(:P72 TO, 'DD-MON-YYYY') and 
TD.coacode=COA.coacode and TD.coacode >= 
:P72 ACCOUNTFROM and 
TD.coacode <= :P72 ACCOUNTTO and 
TM.cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) and 
TM.tran no=TD.tran no and TM.vchcode=VCH.vchcode and 
TM.cocode=C0.cocode and 
COA.cocode=TM.cocode 


ORDER BY vchdate,vchno 
Check Data 


DECLARE 
Vdatafound number := 0; 
Verrortext varchar2(100); 
BEGIN 
select count(*) into Vdatafound from gl tran master TM, gl tran detail TD 
where TM.vchdate <= to date(:P72 TO, 'DD-MON-YYYY') and TD.coacode >= 
:P72 ACCOUNTFROM and 
TD.coacode <= :P72 ACCOUNTTO and 
TM.cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)); 
if Vdatafound <= O THEN 


Verrortext := ‘No data found for the given criteria ; 
end if; 
return rtrim(Verrortext) ; 


END; 
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Drilled Down Voucher 


SELECT 
TD.LINE NO, 
TD.TRAN NO, 
TD.COCODE, 
TD.COACODE, 
TD.CCCODE, 
TD.VCHDESCRIPTION, 
TD.VCHDR, 
TD.VCHCR, 
TD.VCHREFERENCE , 
TD.RECONCILED 
FROM GL TRAN DETAIL TD, GL TRAN MASTER TM 
WHERE TD.TRAN NO = TM.TRAN NO and 
TM.VCHDATE = TO DATE(:P44 VCHDATE, 'DD-MON-YYYY') and 
TM.VCHCODE = TO NUMBER(:P44 VCHCODE) and 
TM.VCHNO = TO NUMBER(:P44 VCHNO) and 
TM.COCODE = (select cocode from gl users where 
upper(userid)=upper(:APP USER)) 
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Chapter 19 


Generate Trial Balance 


DECLARE 
Vstartdate date; VcoacodeSearch varchar2(20); Vcoacode varchar2(11); 
Vcoatitle varchar2(50); Vcoalevel number; 
Vectitle varchar2(25); Vcocode number; Vconame varchar2(50); Vopendr 
number; Vopencr number; VactivityDr number; 
VactivityCr number; VcumulativeDr number; VcumulativeCr number; 
VclosingBalDr number; VclosingBalCr number; 
VtotalOpenDr number; VtotalOpenCr number; VtotalActivityDr number; 
VtotalActivityCr number; 
VtotalClosingDr number; VtotalClosingCr number; 
cursor tb cur is 
select coacode,coatitle,coalevel from gl coa where coacode between :P73 
ACCOUNTFROM and :P73 ACCOUNTTO and 
coalevel <= :P73 COALEVEL and cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) 
order by coacode; 
tb rec tb curZROWTYPE ; 
BEGIN 
delete from gl trial balance where upper(userid)=upper(:APP USER); 
-- delete existing TB of the current user 
commit; 
select cocode into Vcocode from gl users where upper(userid)=upper(:APP_ 
USER); 
select coname into Vconame from gl company where cocode=Vcocode; 
select pfrom into Vstartdate from gl fiscal year where cocode=Vcocode and 
coyear=(select coyear from gl users where 
upper (userid)=upper(:APP USER)) and comonthid=1; 
for tb rec in tb cur loop 
Vcoacode := tb rec.coacode; 
VcoacodeSearch := tb rec.coacode||'%'; 
Vcoatitle := tb rec.coatitle; 
Vcoalevel := tb rec.coalevel; 
if :P73 CCCODE is null THEN -- If no cost center is selected 
select sum(TD.vchdr) into Vopendr from gl tran master TM, gl tran. 
detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate < Vstartdate; 
select sum(TD.vchcr) into Vopencr from gl tran master TM, gl tran 
detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate < Vstartdate; 
select sum(TD.vchdr) into VactivityDr from gl tran master TM, gl 
tran detail TD where TM.tran no=TD.tran no and 
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TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate between 
Vstartdate and 
to date(:P73 TBDATE,'DD-MON-YYYY') and 
TM.closing=0; 
select sum(TD.vchcr) into VactivityCr from gl tran master TM, gl. 
tran detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate between 
Vstartdate and 
to date(:P73 TBDATE,'DD-MON-YYYY') and 
TM.closing=0; 


else 
select cctitle into Vcctitle from gl cost center where cccode=:P73 
CCCODE; -- Print CCTITLE on TB PDF 


select sum(TD.vchdr) into Vopendr from gl tran master TM, gl tran 
detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM. cocode=Vcocode and TM.vchdate < Vstartdate and 
TD.cccode=:P73 CCCODE; 
select sum(TD.vchcr) into Vopencr from gl tran master TM, gl tran 
detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate < Vstartdate 
and 
TD.cccode=:P73 CCCODE; 
select sum(TD.vchdr) into VactivityDr from gl tran master TM, gl. 
tran detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate between 
Vstartdate and 
to date(:P73 TBDATE,'DD-MON-YYYY') and 
TM.closing=0 and TD.cccode=:P73 CCCODE; 
select sum(TD.vchcr) into VactivityCr from gl tran master TM, gl. 
tran detail TD where TM.tran no=TD.tran no and 
TD.coacode like VcoacodeSearch and 
TM.cocode=Vcocode and TM.vchdate between 
Vstartdate and 
to date(:P73 TBDATE,'DD-MON-YYYY') and 
TM.closing=0 and TD.cccode=:P73 CCCODE; 














end if; 


-- Calculate closing balance 
VcumulativeDr := nvl(VopenDr,0) + nvl(VactivityDr,0); 
-- Sum up opening and activity debits 
VcumulativeCr := nvl(VopenCr,0) + nvl(VactivityCr,0); 
-- Sum up opening and activity credits 
if VcumulativeDr > VcumulativeCr then 
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VclosingBalDr := VcumulativeDr - VcumulativeCr; 
-- Closing balance is debit 
VclosingBalCr := 0; 
elsif VcumulativeCr > VcumulativeDr then 
VclosingBalDr := 0; 
VclosingBalCr := VcumulativeCr - VcumulativeDr; 
-- Closing balance is credit 
else -- Both are equa 
VclosingBalDr := 0; 
VclosingBalCr := 0; 
end if; 
if Vopendr=Vopencr then -- Previous year's balance is zero (It’s an 
Income or Expense account) 
insert into gl trial balance values 
(Vcoacode, Vcoatitle, Vcoalevel,0,0,VactivityDR, VactivityCR, VclosingBa 
1Dr, VclosingBalCr,Vconame, 
:P73 TBDATE,:P73 ACCOUNTFROM, :P73 ACCOUNTTO, :P73 
CCCODE,Vcctitle,:P73 COALEVEL,upper(:APP USER),0); 
else 
insert into gl trial balance values 
(Vcoacode, Vcoatitle, Vcoalevel, Vopendr, Vopencr, VactivityDR,VactivityC 
R, VclosingBalDr,VclosingBalCr,Vconame, 
:P73 TBDATE,:P73 ACCOUNTFROM, :P73 ACCOUNTTO, :P73 
CCCODE,Vcctitle,:P73 COALEVEL,upper(:APP USER),0); 
end if; 
commit; 
end loop; 
-- Calculate & insert grand totals 
select sum(opendr) into VtotalOpenDr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
select sum(opencr) into VtotalOpenCr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
select sum(activitydr) into VtotalActivityDr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
select sum(activitycr) into VtotalActivityCr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
select sum(closingdr) into VtotalClosingDr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
select sum(closingcr) into VtotalClosingCr from gl trial balance where 
upper (userid)=upper(:APP USER) and 
coalevel=:P73 COALEVEL; 
insert into gl trial balance (coatitle,coalevel,opendr,opencr,activitydr, 
activitycr,closingdr,closingcr,userid,grand total) 
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values ("GRAND TOTAL FOR LEVEL '||:P73 COALEVEL,:P73 COALEVEL,Vtotalopend 
r, Vtotalopencr,VtotalactivityDR, 
VtotalactivityCR,VtotalclosingDr,VtotalclosingCr,upper(:APP USER),1); 


commit; 


-- Replace zeros with nulls for clear presentation 


update gl trial balance set 
update gl trial balance set 
update gl trial balance set 
update gl trial balance set 
update gl trial balance set 
update gl trial balance set 
commit; 
END; 


Check Data 


DECLARE 
Vdatafound number := 0; 
Verrortext varchar2(100); 
BEGIN 
if :P73 CCCODE is null THEN 


opendr=null where opendr=0; 
opencr=null where opencr=0; 
activitydr=null where activitydr=0; 
activitycr=null where activitycr=0; 
closingdr=null where closingdr=0; 
closingcr=null where closingcr=0; 


-- No cost center selected 


select count(*) into Vdatafound from gl tran master TM, gl tran detail 


TD 


where TM.vchdate <= to date(:P73 TBDATE, 'DD-MON-YYYY') and 
TD.coacode >= :P73 ACCOUNTFROM and TD.coacode <= :P73 


ACCOUNTTO and 


TM.cocode=(select cocode from gl users where 
upper (userid)=upper(:APP USER)); 


else 


select count(*) into Vdatafound from gl tran master TM, 


gl tran detail TD 


where TM.vchdate <= to date(:P73 TBDATE, 'DD-MON-YYYY') and 
TD.coacode >= :P73 ACCOUNTFROM and TD.coacode <= :P73 


ACCOUNTTO and 
TD.cccode = : 


P73 CCCODE and 





TM.cocode=(select cocode from gl users where 
upper (userid)=upper(:APP_USER)); 


end if; 
if Vdatafound <= 0 THEN 

Verrortext := ‘No data found for the given criteria ; 
end if; 


return rtrim(Verrortext) ; 
END; 
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Chapter 20 


Check Debit Credit g fO7 represents the Debit column in the 
tabular form. whereas g_f08 represents the 
DECLARE Credit column. 





Verrortext varchar2(1000) ; 
BEGIN 
FOR i IN 1 .. apex application.g f02.COUNT LOOP 
if (apex application.g f07(i) = 0 and 
apex application.g f08(i) = 0) OR 
(apex application.g f07(i) <= 0 and 
apex application.g f08(i) <= 0) OR 
(apex application.g f07(i) <> 0 and 
apex application.g f08(i) <> 0) OR 
(apex application.g f07(i) is null or 
apex application.g f08(i) is null) then 
Verrortext := "Row "| [i] ]|':&nbsp;&nbsp;Enter positive amount either 
in Debit or Credit.<br />'; 
end if; 
END LOOP; 
return rtrim(Verrortext,'<br />'); 
END; 
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Chapter 22 


Generate Reconciliation Report 


DECLARE 
Vcocode number; VactivityDr number := 0; VactivityCr number := 0; 
VclosingBal number := 0; Vconame varchar2(50); 
Vbanktitle varchar2(50); Vosdebit number := 0; Voscredit 
number := 0; Vamount number := 0; 
VtranDebit number := 0; VtranCredit number := 0; Vmonthyear 
varchar2(14); Vvchdate date; Vvchtype varchar2(6); 
Vvchno number := 10; Vvchdescription varchar2(150); Vremarks 
varchar2(150); Vvchreference varchar2(25); 
Vsrno number := 1; VbankBalance number := 0; 


-- Opening Bank Transactions Cursor 
Cursor os cur is 
select remarks,vchdr,vchcr from gl banks os where cocode=(select cocode 
from gl users where 
upper (userid)=upper(:APP USER)) and coacode=:P74 BANK and reconciled=0 
order by sr no; 


-- Bank's current transactions cursor 

cursor tran_cur is 

SELECT TM.VCHDATE, VCH.VCHTYPE, TM.VCHNO, TD.VCHDESCRIPTION, 

TD.VCHREFERENCE, TD.VCHDR, TD.VCHCR 

FROM GL VOUCHER VCH, GL TRAN MASTER TM, GL TRAN DETAIL TD 

WHERE TM.COCODE=TD.COCODE AND TM.TRAN NO=TD.TRAN NO AND TM.VCHCODE=VCH. 

VCHCODE AND 
TM.vchdate <= to date(:P74 REPORTDATE, 'DD-MON-YYYY') AND 
TM.CLOSING=0 AND 
TM.VCHDESCRIPTION <> ‘OPENING BALANCES’ AND 
TM.COCODE=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) AND 
TD.COACODE=:P74 BANK AND TD.RECONCILED=0 

ORDER BY TM.vchdate; 

os rec os CUurÆROWTYPE; 

tran rec tran curÆROWTYPE; 


BEGIN 
delete from gl reconcile report where upper(userid)=upper(:APP USER); 
-- Delete user's existing report 
commit; 
select cocode into Vcocode from gl users where upper(userid)=upper 
(:APP USER); 
select coname into Vconame from gl company where cocode=Vcocode; 
select coatitle into Vbanktitle from gl coa where coacode=:P74 BANK and 
cocode=Vcocode; 
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-- Evaluate bank's balance as per ledger 
SELECT sum(TD.vchdr), sum(TD.vchcr) into VactivityDr,VactivityCr 
FROM gl tran master TM, gl tran detail TD 
WHERE TM.tran no=TD.tran no and TM.cocode=Vcocode AND TD.coacode=:P74_ 
BANK AND 
TM.vchdate <= to date(:P74 REPORTDATE, 'DD-MON-YYYY') AND 
TM.cocode=TD.cocode AND TM.closing=0; 


if VactivityDr > VactivityCr then 
VclosingBal := VactivityDr - VactivityCr; 
elsif VactivityCr > VactivityDr then 
VclosingBal := VactivityCr - VactivityDr; 
VclosingBal := VclosingBal-(VclosingBal * 2); -- Make overdraft 
(OD) balance 
negative 
else 
VclosingBal : 
end if; 


0; 


insert into gl reconcile report values (Vsrno,upper(:APP_ 

USER) ,Vconame, 

to date(:P74_REPORTDATE,'DD-MON-YYYY'), :P74_BANK,Vbanktitle,null,null, 
null,null,'Balance as per Ledger', 

null,VclosingBal); 

commit; 


-- Incorporate opening transactions 
for os_rec in os_cur loop -- os stands for opening 
outstanding 

Vsrno := Vsrno + 1; 

Vremarks := os rec.remarks; 

Vosdebit := os rec.vchdr; 

Voscredit := os rec.vchcr; 

if Vosdebit > 0 then 
Vamount := Vosdebit; 
Vamount := Vamount-(Vamount * 2); -- Made negative to deduct 

the amount. 


elsif Voscredit > 0 then This is a deposited amount that is 
Vamount := Voscredit; recorded in the company’s ledger 

else but hasn't appeared in the bank 
Vamount := 0; statement. To reconcile the 

end if; ledger balance with the bank 


insert into gl reconcile report balance, this amount should be 
values (Vsrno,upper(:APP USER),Vconame, deducted from the ledger 





balance. 
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to date(:P74 REPORTDATE, 'DD-MON-YYYY'), :P74 BANK, Vbanktitle, null, null, 
null,null,Vremarks,null,Vamount); 
commit; 

end loop; 


-- Incorporate current transactions 
for tran rec in tran cur loop 

Vsrno := Vsrno + 1; 
Vvchdate := tran_rec.vchdate; 
Vvchtype := tran_rec.vchtype; 
Vvchno := tran_rec.vchno; 
Vvchdescription := tran rec.vchdescription; 
Vvchreference := tran rec.vchreference; 
VtranDebit := tran rec.vchdr; 
VtranCredit := tran rec.vchcr; 
Vmonthyear := TRIM(to char(Vvchdate, 'Month'))||'-'||to_ 
char(Vvchdate, 'YYYY'); 
if VtranDebit > 0 then 

Vamount := VtranDebit; 

Vamount := Vamount-(Vamount * 2); -- Made negative to deduct 
the deposited amount not 
appearing in the BS 

elsif VtranCredit > 0 then 

Vamount := VtranCredit; 

else 
Vamount := 0; 
end if; 
insert into gl reconcile report values (Vsrno,upper 
(:APP_USER) ,Vconame, 
to date(:P74 REPORTDATE, 'DD-MON-YYYY' ), :P74 BANK, Vbanktitle, Vmonthyear 
»Vvchdate, Vvchtype, Vvchno, 
Vvchdescription, Vvchreference, Vamount) ; 
commit; 
end loop; 


-- Calculate and insert bank balance based on the figures instered above 
select sum(amount) into VbankBalance from gl reconcile report where 
upper(userid)=upper(:APP USER); 
insert into gl reconcile report values (Vsrno+1,upper(:APP USER) ,Vconame, 
to date(:P74 REPORTDATE, 'DD-MON-YYYY'),:P74 BANK, Vbanktitle,null,null,nul 
l,null, ‘Balance as per bank statement”, 
null,VbankBalance); 
commit; 

END; 
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Chapter 23 


Check Month Closure 


DECLARE 
Vmonthclosed number := 0; 
Verrortext varchar2(100); 
BEGIN 
select month closed into Vmonthclosed from gl fiscal year 
where cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)) and 
coyear=(select coyear from gl users where upper(userid)=upper(:APP_ 
USER)) and 
comonthid=:P96 COMONTH; 
if Vmonthclosed = 1 THEN 
Verrortext := ‘Cannot proceed with this process because the selected 
month is already marked as closed’; 
end if; 
return rtrim(Verrortext) ; 
END; 
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Chapter 24 


Check Permanent Year Closure 


DECLARE 
Vyearclosed number := 0; 
Verrortext varchar2(100) ; 
BEGIN 
select count(*) into Vyearclosed from gl fiscal year 
where year closed=1 and cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) and 
coyear=(select coyear from gl users where 
upper(userid)=upper(:APP USER)); 
if Vyearclosed > 0 THEN 
Verrortext := ‘Cannot proceed with this process because year is 
already permanently closed’ ; 
end if; 
return rtrim(Verrortext) ; 
END; 


Generate Fiscal Year 


DECLARE 
Vyearexist number := 0; Vnextyear number := 0; Vcoyear number := 0; 
Vcocode number := 0; Vcomonthid number := 0; 
Vcomonthname varchar2(9); Vpfrom varchar2(11); Vpto varchar2(11); 
Vleapyear number; Vprev rec year varchar2(4); 
cursor fy cur is 
select * from gl fiscal year where cocode=(select cocode from gl users 
where upper(userid)=upper(:APP USER)) and 
coyear=(select coyear from gl users where upper(userid)=upper(:APP_ 
USER) ); 
fy rec fy curÆROWTYPE; 

BEGIN 
select cocode, coyear+1, coyear+1, to char(coyear) into 
Vcocode, Vcoyear, Vnextyear, Vprev rec year from gl users 
where upper(userid)=upper(:APP USER); 
select count(*) into Vyearexist from gl fiscal year 
where cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)) and coyear=Vcoyear; 


if Vyearexist = 0 then -- New fiscal year not found so create it 
for fy rec in fy cur loop 
Vcomonthid := fy rec.comonthid; 


Vcomonthname := fy rec.comonthname; 
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Vpfrom := substr(to char(fy rec.pfrom, 
'DD-MON-YYYY' ),1,7) | |Vnextyear; 
Vpto := substr(to char(fy rec.pto, | If Vnextyear is 2016, then Vpfrom 
'DD-MON-YYYY' ) , 1,7) | |Vnextyear; and Vpto will have O1-JUL-2016 and 
T- to char(fy rec pfrom, 'yyyy' ) å perle Aa values, respectively, for 
e month of July. 
<> Vprev rec year then 
Vnextyear := Vnextyear + 1; 
Vpfrom := substr(to char(fy rec.pfrom, 
'DD-MON-YYYY'),1,7) | |Vnextyear; 








Vpto := substr(to char(fy rec.pto, 7 

‘DD-MON-YYYY') ,1,7)| |Vnextyear; EET jr ce en 
end if; 
if Vcomonthname = 'February' then 


Vleapyear := mod(Vnextyear,4); 
if Vleapyear = 0 then 
Vpto := '29-FEB-'||Vnextyear; 


else 
Vpto := '28-FEB-'||Vnextyear; 
end if; 
end if; 
insert into gl fiscal year values (Vcocode,Vcoyear,Vcomonthid,Vcom 
onthname, 


to_date(Vpfrom, 'DD-MON-YYYY'),to date(Vpto, 'DD-MON- 
YYYY'),0,0,0,null); 
commit; 
Vprev rec year := to char(fy rec.pfrom,'YYYY'); 
end loop; 
end if; 
END; 


Generate Closing Entry 


DECLARE 


VoldClosingEntry number; 
Vtran no number; Å closing entry is created to close all 
expense and revenue accounts into a 
profit and loss account. The cursor 


Vline_no number; 

Vcoacode varchar2(11) ; 
Vcocode number; 

Vcoyear number; 

Vvchdate date; 

Vactivitydr number; 
Vactivitycr number; 

VnetDebit number; 

VnetCredit number; 
VcumulativeDebit number := 0; 
VcumulativeCredit number := 0; 


fetches all accounts marked as either 
revenue or expense. 
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Vloss number; 
Vprofit number; 
cursor tye cur is 
select TD.coacode coacode, sum(TD.vchdr) activitydr, sum(TD.vchcr) 
activitycr 
from gl coa coa, gl tran master TM, gl tran detail TD 
where TM.tran no=TD.tran no and TD.coacode=COA.coacode and coa.cocode=td. 
cocode and 
TM.cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) and 
TM.coyear=(select coyear from gl users where 
upper(userid)=upper(:APP USER)) and TM.closing=0 and 
COA.coanature in ('Revenue', 'Expenses' ) 
group by TD.coacode order by TD.coacode; 
tye rec tye curZROWTYPE; 
BEGIN 
BEGIN 
select distinct(TM.tran no) into VoldClosingEntry -- Locate and 
remove existing 
closing entry 
from gl tran master TM 
where TM.cocode=(select cocode from gl users where 
upper (userid)=upper(:APP USER)) and 
TM.coyear=(select coyear from gl users where 
upper (userid)=upper(:APP USER)) and TM.closing=1; 
delete from gl tran detail where tran no=VoldClosingEntry; 
delete from gl tran master where tran no=VoldClosingEntry; 





commit; 

EXCEPTION The statement evaluates the current 
WHEN NO DATA FOUND then company, year, and the last date of 
VoldClosingEntry := 0; the current fiscal vear. 

END; 


select gl tran master seq.nextval into Vtran no from dual; 


select cocode,coyear,pto into Vcocode,Vcoyear,Vvchdate 
from gl fiscal year 
where cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)) and 

coyear=(select coyear from gl users where 

upper (userid)=upper(:APP USER)) and comonthid=12; 





insert into gl tran master values (Vtran no,Vcocode,Vcoyear,12,:P93 
VCHCODE , 9999999999, Vvchdate, 
‘Closing Entry',upper(:APP USER),sysdate,'Y','Y',1); -- Master record 
instered 
commit; 
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for tye_rec 1n tye cur loop Å closing entry is autogenerated and appears 
-- Insert detail records on the last date of the fiscal year (i.e., 30" 


select gl tran detail seq.nextval June) and is numbered as 9999999999. The 
into Vline no from dual: value 1 in the closing column of the table 
Weoacode Sa tye rec aoo code: | signifies that it is a closing entry. 

. — — e 9 
Vactivitydr := tye rec.activitydr; 
Vactivitycr := tye rec.activitycr; 





if Vactivitydr > Vactivitycr then 
VnetDebit := Vactivitydr - Vactivitycr; 
VnetCredit := 0; 
VcumulativeDebit := VcumulativeDebit + VnetDebit; 
elsif Vactivitycr > Vactivitydr then 
VnetCredit := Vactivitycr - Vactivitydr; 
VnetDebit := 0; 
VcumulativeCredit := VcumulativeCredit + VnetCredit; 
else 
VnetDebit := 0 
VnetCredit := 
end if; 
if VnetDebit > 0 or VnetCredit > 0 then 
insert into gl tran detail values (Vline no,Vtran no,Vcocode,Vcoaco 
de,null, ‘Closing Entry',VnetCredit,VnetDebit, 
null,o); 
commit; 
end if; 
end loop; 
-- Record the difference of revenues and expenses in the profit and loss 
account 
select gl tran detail seq.nextval into Vline no from dual; 
if VcumulativeDebit > VcumulativeCredit then 


3 
3 


Vloss := VcumulativeDebit - VcumulativeCredit; -- Loss: expenses 
exceeded 
reveunes 

Vprofit := 0; 

elsif VcumulativeCredit > VcumulativeDebit then 

Vloss := 0; 

Vprofit := VcumulativeCredit - VcumulativeDebit;  -- Profit: revenues 
exceeded 
expenses 

else 
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Vloss := 0; 
Vprofit := 

end if; 

if Vloss > 0 or Vprofit > 0 then 
insert into gl tran detail values (Vline_no,Vtran_no,Vcocode, :P93_ 
PLACCOUNT, null, ‘Closing Entry',Vloss,Vprofit,null,o); 


0; 


commit; 
end if; 
update gl fiscal year set TYE Executed=SYSDATE -- Record temporary 
year end execution 
date 


where cocode=(select cocode from gl users where upper(userid)=upper 
(:APP USER)) and 
coyear=(select coyear from gl users where 
upper(userid)=upper(:APP USER)); 
commit; 
END; 


Permanent Year Closure 


DECLARE 
Vyearclosed number := 0; 
Verrortext varchar2(100); 
BEGIN 
select count(*) into Vyearclosed from gl fiscal year 
where year closed=1 and 
cocode=(select cocode from gl users where 
upper(userid)=upper(:APP USER)) and 
coyear=(select coyear from gl users where 
upper(userid)=upper(:APP USER)); 
if Vyearclosed > 0 THEN 
Verrortext := ‘Cannot proceed with this process because year is 
already closed permanently’ ; 
end if; 
return rtrim(Verrortext) ; 
END; 
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Check Months Closure 


DECLARE 


Vunclosed number := 0; 
Verrortext varchar2(100); 


BEGIN 


select count(*) into Vunclosed from gl fiscal year 
where month closed=0 and cocode=(select cocode from gl users where 
upper (userid)=upper(:APP USER)) and 
coyear=(select coyear from gl users where 
upper(userid)=upper(:APP USER)); 
if Vunclosed >= 1 THEN 
Verrortext := Vunclosed||' month(s) found unclosed. Cannot proceed 
with this process’ ; 
end if; 
return rtrim(Verrortext) ; 


END; 


Check Temporary Year End Date 


DECLARE 


Vtyedate date; 
Verrortext varchar2(100); 


BEGIN 


END; 
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select TYE Executed into Vtyedate from gl fiscal year 
where cocode=(select cocode from gl users where upper(userid)=upper 
(:APP_USER)) and 
coyear=(select coyear from gl users where 
upper (userid)=upper(:APP_USER)) and comonthid=1; 
if TRUNC(Vtyedate) < TRUNC(SYSDATE) or Vtyedate is null THEN 


Verrortext := ‘Kindly execute Temporary Year End Process to create 
fresh closing entries’ ; 
end if; 


return rtrim(Verrortext) ; 
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Chapter 25 


User Defined Budget 


DECLARE 

Vbudgetrecords number := 0; 

Vcoacode varchar2(11); 

Cursor coa cur is 

select coacode from gl coa where cocode=:P55 COCODE and coanature=:P55 __ 
COANATURE and coalevel=4 

order by coacode; 

coa rec coa CurÆROWTYPE; 
BEGIN 

select count(*) into Vbudgetrecords from gl budget where cocode=:P55_ 
COCODE and coyear=:P55 COYEAR and 

coanature=:P55 COANATURE; 


if Vbudgetrecords = 0 then -- Budget is not defined for the 
selected nature of accounts, 
therefore 
for coa rec in coa cur loop -- fetch accounts of the selected 


nature from the chart of accounts 
Vcoacode := coa rec.coacode; 
insert into gl budget values (:P55 COCODE,:P55_ 
COYEAR , Vcoacode, :P55 COANATURE,null,0,0,0,0,0,0,0,0,0,0,0,0,14); 
commit; 
end loop; 


end if; 


EXCEPTION Code for user-defined budget 


WHEN NO DATA FOUND THEN null; 
END; 





Last Year Budget 


DECLARE 
Vbudgetrecords number := 0; Vcoacode varchar2(11); Vbudget amount1 
number := 0; Vbudget_amount2 number := 0; 
Vbudget_amount3 number := 0; Vbudget amount4 number := 0; Vbudget_ 
amount5 number := 0; Vbudget amount6 number := 0; 
Vbudget amount7 number := 0; Vbudget amount8 number := 0; Vbudget 
amount9 number := 0; Vbudget amount10 number := 0; 
Vbudget amount11 number := 0; Vbudget amount12 number : 
cursor coa_cur is 
select coacode from gl coa where cocode=:P55 COCODE and coanature=:P55 __ 
COANATURE and coalevel=4 
order by coacode; 
coa rec coa cur4ROWTYPE; 

BEGIN 


0; 
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select count(*) into Vbudgetrecords from gl budget where cocode=:P55_ 
COCODE and coyear=:P55 COYEAR and 
coanature=:P55 COANATURE; 


if Vbudgetrecords = 0 then 
r Fetch last years budget value for each financial account. 
for coa_rec in coa_cur loop 


Vcoacode := coa_rec.coacode; 
SELECT budget amount1,budget amount2,budget amount3,budget 
amount4, budget amount5,budget amount6, 
budget amount7,budget amount8,budget _amount9, budget _ 
amount 10, budget amount11,budget amount1i2 INTO 
Vbudget amount1,Vbudget amount2, Vbudget amount3,Vbudget 
amount4, Vbudget amount5,Vbudget amount6, 
Vbudget amount7,Vbudget amount8,Vbudget amount9,Vbudget 
amount 10, Vbudget amount11, 
Vbudget amount12 
FROM gl budget where cocode=:P55 COCODE and coyear=:P55 COYEAR-1 
and coacode=Vcoacode; 
INSERT INTO gl budget VALUES (:P55 COCODE,:P55_ 
COYEAR, Vcoacode, :P55 COANATURE,null,Vbudget amount1, 
Vbudget amount2, Vbudget amount3,Vbudget amount4,Vbudget 
amount5, Vbudget amount6,Vbudget amount7, 
Vbudget amount8,Vbudget amount9,Vbudget amount10,Vbudget _ 
amount11, Vbudget amount12,2); 


commit; Code for last year’s budget 
end loop; 


end if; 
EXCEPTION 

WHEN NO DATA FOUND THEN null; 
END; 


Last Year Actual 


DECLARE 
Vbudgetrecords number := 0; 
Vcoacode varchar2(11); 
Vpfrom date; 
Vpto date; 
Vbalance number := 0; 
Cursor coa_cur is 
select coacode from gl coa where cocode=:P55 COCODE and coanature=:P55__ 
COANATURE and coalevel=4 
order by coacode; 
coa rec coa CurÆROWTYPE; 
BEGIN 


360 


APPENDIX ™ BOOK CODE 


select count(*) into Vbudgetrecords from gl budget where cocode= 
:P55 COCODE and coyear=:P55 COYEAR and 
coanature=:P55 COANATURE; 
if Vbudgetrecords = 0 then 
for coa rec in coa cur loop 
Vcoacode := coa rec.coacode; 
for j in 1 .. 12 Loop 
select pfrom,pto into Vpfrom,Vpto from gl fiscal year where 
comonthid=j and cocode=:P55 COCODE and 
coyear=:P55 COYEAR-1; 
if :P55 COANATURE='Assets' or : 


P55 COANATURE="Expenses' then rer er 
select sum(TD.vchdr)-sum(TD.vchcr) accounts have a debit balance: 
into Vbal therefore, in order to get a 
into altance positive value, a debit is deducted 
from gl tran master TM, from a credit. A reverse equation 
gl tran detail TD is applied to capital, liabilities, 

= — and revenue accouts. 





where TM.cocode=TD.cocode and 
TM.tran no=TD.tran no and 
TM.cocode=:P55 COCODE and 
TD.coacode=Vcoacode and 
TM.vchdate between Vpfrom and Vpto and 
TM.closing=0; 
end if; 
if :P55 COANATURE='Capital’ or :P55 COANATURE= Liabilities' or 
:P55 COANATURE='Revenue’ then 
select sum(TD.uchcr)-sum(TD.uchdr) into Vbalance 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and 
TM.tran no=TD.tran no and 
TM.cocode=:P55 COCODE and 
TD.coacode=Vcoacode and 
TM.vchdate between Vpfrom and Vpto and 
TM.closing=0; 






First month’s budget amount 

(budget amountl) is inserted, while 
| figures for the remaining 11 months 
are updated on the same row. 


end if; 

if j=1 then 
insert into gl budget 
(cocode, coyear , coacode, 
coanature, cccode, budget_amount1, criterion) values 
(:P55 COCODE,:P55 COYEAR,Vcoacode, 
:P55 COANATURE , null, Vbalance, 3); 


wT pate gå b H ode for lt year's actual values 
update gl budget set Code for last year’s actual values 


budget_amount2=Vbalance where cocode=:P55 COCODE and 
coyear=:P55 COYEAR and 
coacode=Vcoacode; 

elsif j=3 then 
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update gl budget set budget amount3=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=4 then 
update gl budget set budget amount4=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=5 then 
update gl budget set budget amount5=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=6 then 
update gl budget set budget amount6=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=7 then 
update gl budget set budget amount7=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=8 then 
update gl budget set budget amount8=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=9 then 
update gl budget set budget amount9=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=10 then 
update gl budget set budget amount10=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
elsif j=11 then 
update gl budget set budget amount1i1=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
else 
update gl budget set budget amount12=Vbalance where 
cocode=:P55 COCODE and coyear=:P55 COYEAR and 
coacode=Vcoacode; 
end if; 
commit; 
end loop; 
end loop; 
end if; 
EXCEPTION 
WHEN NO DATA FOUND THEN null; 
END; 
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Chapter 26 


Generate Budget Report 


DECLARE 
Vactual number := 0; 
Vbudget number := 0; 
Vvariance number := 0; 
Vpercent number := 0; 
Vstatus varchar2(1); 
Vpfrom date; 
Vpto date; 
Vcoacode varchar2(11); 
Vcoatitle varchar2(50); 
Vcoanature varchar2(11); 
Vtotalbudget number := 0; 
Vtotalactual number := 0; 
Vtotalvariance number := 0; 
Vtotalpercent number := 0; 
VnetStatus varchar2(1); 
Vconame varchar2(50); 
VmonthName1 varchar2(9); 
VmonthName2 varchar2(9); 
VprintedOn timestamp; 


cursor budget cur is 
select * from gl budget where coacode between :P75 ACCOUNTFROM and :P75_ 
ACCOUNTTO and 
cocode=:P75 COCODE and coyear=:P75 COYEAR order by coacode; 
budget rec budget curÆROWTYPE; 
BEGIN 
delete from gl budget report where upper(userid)=upper(:APP USER); 
-- Delete user’s existing budget report 
commit; 
select coname into Vconame from gl company where cocode=:P75 COCODE; 
select comonthname into VmonthName1 from gl fiscal year where 
cocode=:P75 COCODE and 
coyear=:P75 COYEAR and comonthid=:P75 MONTHFROM; 
select comonthname into VmonthName2 from gl fiscal year where 
cocode=:P75 COCODE and 
coyear=:P75 COYEAR and comonthid=:P75 MONTHTO; 

select SYSDATE into VprintedOn FROM DUAL; 
for budget rec in budget cur loop 

Vcoacode := budget rec.coacode; 

Vcoanature := budget rec.coanature; 

if :P75 MONTHFROM = :P75 MONTHTO THEN -- Report called for a 

single month 
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select pfrom,pto into Vpfrom,Vpto from gl fiscal year where 
cocode=:P75 COCODE and coyear=:P75 COYEAR and 
comonthid=:P75 MONTHFROM; 
Vbudget := 0; 
if :P75 MONTHFROM=1 then 

Vbudget := nvl(budget_rec.budget_amount1,0); 
elsif :P75 MONTHFROM=2 then 

Vbudget := nvl(budget rec.budget amount2,0); 
elsif :P75 MONTHFROM=3 then 

Vbudget := nvl(budget rec.budget amount3,0); 
elsif :P75 MONTHFROM=4 then 

Vbudget := nvl(budget rec.budget amount4,0); 
elsif :P75 MONTHFROM=5 then 

Vbudget := nvl(budget rec.budget amount5,0); 
elsif :P75 MONTHFROM=6 then 

Vbudget := nvl(budget rec.budget amount6,0); 
elsif :P75 MONTHFROM=7 then 

Vbudget := nvl(budget rec.budget amount7,0); 
elsif :P75 MONTHFROM=8 then 

Vbudget := nvl(budget rec.budget amount8,0); 
elsif :P75 MONTHFROM=9 then 

Vbudget := nvl(budget rec.budget amount9,0); 
elsif :P75 MONTHFROM=10 then 

Vbudget := nvl(budget rec.budget amount10,0); 
elsif :P75 MONTHFROM=11 then 

Vbudget := nvl(budget rec.budget amount11,0); 


else 
Vbudget := nvl(budget rec.budget amount12,0); 
end if; 
end if; 
if :P75 MONTHTO > :P75 MONTHFROM THEN ~-- Report called for multiple 


months 
select pfrom into Vpfrom from gl fiscal year where cocode=:P75_ 
COCODE and coyear=:P75 COYEAR and 
comonthid=:P75 MONTHFROM; 
select pto into Vpto from gl fiscal year where cocode=:P75 COCODE 
and coyear=:P75 COYEAR and 
comonthid=:P75 MONTHTO; 


Vbudget := 0; 
for J in :P75 MONTHFROM .. :P75 MONTHTO loop 
if J=1 then 
Vbudget := Vbudget + nvl Budget figures of all 
(budget rec.budget amount1,0); months accumulated into 
elsif J=2 then Vbudget variable. 





Vbudget := Vbudget + nvl 
(budget rec.budget amount2,0); 
elsif J=3 then 
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Vbudget := Vbudget + nvl(budget_rec.budget_amount3,0); 
elsif J=4 then 

Vbudget := Vbudget + nvl(budget rec.budget amount4,0); 
elsif J=5 then 

Vbudget := Vbudget + nvl(budget rec.budget amount5,0); 
elsif J=6 then 

Vbudget := Vbudget + nvl(budget rec.budget amount6,0); 
elsif J=7 then 

Vbudget := Vbudget + nvl(budget_rec.budget amount7,0); 
elsif J=8 then 

Vbudget := Vbudget + nvl(budget rec.budget amount8,0); 
elsif J=9 then 

Vbudget := Vbudget + nvl(budget rec.budget amount9,0); 
elsif J=10 then 

Vbudget := Vbudget + nvl(budget rec.budget amount10,0); 
elsif J=11 then 

Vbudget := Vbudget + nvl(budget rec.budget amount11,0); 
else 

Vbudget := Vbudget + nvl(budget rec.budget amount12,0); 
end if; 

end loop; 
end if; 


Fetched actual 
values from 


if :P75 COANATURE="Assets' or :P75 COANATURE= 
‘Expenses’ then 
select sum(TD.vchdr)-sum(TD.vchcr) into Vactual 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=:P75 COCODE and 
TD.coacode=Vcoacode and TM.vchdate between Vpfrom and 
Vpto; 


the transaction 
tables. 





end if; 
if :P75 COANATURE='Capital’ or :P75 COANATURE= Liabilities' or 
:P75 COANATURE='Revenue’ then 
select sum(TD.vchcr)-sum(TD.vchdr) into Vactual 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=:P75 COCODE and 
TD.coacode=Vcoacode and TM.vchdate between 
Vpfrom and Vpto; 
end if; 
select coatitle into Vcoatitle from gl coa where coacode=Vcoacode and 
cocode=:P75 COCODE; 


Vvariance := Vbudget - Vactual; -- Variance = Budgeted figures 
less Actual values 
if Vbudget > 0 then -- avoid zero division error 


Vpercent := (Vvariance/Vbudget) * 100; 
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else 
Vpercent := 0; 

end if; 

if Vbudget > Vactual then 
Vstatus := 'U'; 

end if; 

if Vactual > Vbudget then 
Vstatus := '0'; 

end if; 

if nvl(Vactual,o) = nvl(Vbudget,0) then 
Vstatus := '-'; 

end if; 





insert into gl budget report values (Vcoacode,Vcoatitle,nv1(Vbudget,0) 
»nvl(Vactual,0),nvl(Vvariance,0), 
nvl(Vpercent,0),Vstatus,upper(:APP USER) ,0,Vconame, :P75_ACCOUNTFROM, 
:P75 ACCOUNTTO, VmonthName1, VmonthName2 ,VprintedOn) ; 
commit ; 
end loop; 
select sum(budget) into Vtotalbudget from gl budget report where 
upper (userid) =upper(:APP_USER) ; 
select sum(actual) into Vtotalactual from gl budget report where 
upper(userid)=upper(:APP USER); 
select sum(variance) into Vtotalvariance from gl budget report where 
upper(userid)=upper(:APP USER); 
if Vtotalbudget > 0 then -- avoid zero division error 
Vtotalpercent := (Vtotalvariance/Vtotalbudget) * 100; 
end if; 
if Vtotalbudget > Vtotalactual then 
Vnetstatus := 'U'; 
end if; 
if Vtotalactual > Vtotalbudget then 
Vnetstatus := '0'; 
end if; 
insert into gl budget report values (' ', 'GRAND 
TOTAL ' ,nvl(Vtotalbudget,0),nvl(Vtotalactual,o),nvl(Vtotalvariance,0), 
nvl(Vtotalpercent,0),Vnetstatus,upper(:APP USER),1,Vconame,:P75 
ACCOUNTFROM, 
:P75 ACCOUNTTO, VmonthName1, VmonthName2, Vprintedon); 
commit; 
END; 
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Chapter 27 


Check Report Code 


DECLARE 
Vreportfound number := 0; 
Verrortext varchar2(60) ; 
BEGIN 
if :P18 EXISTINGNEN="NEW" then 
select count(*) into Vreportfound from gl fs setup 
where cocode=:P18 COCODE and upper(reportcode)=upper(:P18_ 
REPORTCODE2) ; 
if Vreportfound > O THEN 


Verrortext := ‘Report Code already exists in the database ; 
end if; 
return rtrim(Verrortext) ; 
end if; 


END; 
Populate Report Code Value in Tabular Form 


if :P18 EXISTINGNEW='NEW' then 
FOR i IN 1 .. apex application.g f02.COUNT LOOP 
apex application.g f03(i) := :P18 REPORTCODE2; 
apex application.g fo4(i) := :P18 REPORTTITLE2; 
END LOOP; 
else 
FOR i IN 1 .. apex application.g f02.COUNT LOOP 
apex application.g f03(i) := :P18 REPORTCODE1; 
apex application.g fo4(i) := :P18 REPORTTITLE1; 
END LOOP; 
end if; 
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Chapter 28 


Generate Profit and Loss 


DECLARE 


VreportCode varchar2(4); 
VreportTitle varchar2(50); 
Vcocode number; 

Vconame varchar2(50); 
VcurrentYear number; 
VpreviousYear number; 
VcurrentFromDate date; 
VcurrentToDate date; 
Vcomonthname varchar2(9); 
VpreviousFromDate date; 
VpreviousToDate date; 
VaccountFrom varchar2(11); 
VaccountTo varchar2(11); 
VcurrentSales number := 0; 
VpreviousSales number := 0; 
VcurrentOpeningStock number 
VpreviousOpeningStock number 
VcurrentClosingStock number 
VpreviousClosingStock number 
VcurrentCOG number := 0; 
VpreviousCOG number := 0; 
VcurrentGrossMargin number : 
VpreviousGrossMargin number 
VcurrentAdmin number := 0; 
VpreviousAdmin number := 0; 
VcurrentSelling number := 0; 
VPreviousSelling number := 0; 
VcurrentFinancial number := 0 
VpreviousFinancial number := 
VcurrentProfitLoss number := 
VpreviousProfitLoss number := 
Vvariance number := 0; 
Vpercent number := 0; 
Vpercent2 number := 0; 

P&L Notest Variables 
Vcoacode varchar2(11); 
vcoatitle varchar2(50); 
VcurrentBalance number := 0; 
VpreviousBalance number := 0; 
Vsrno number := 0; 
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The table gå å report has a column named wao which Is populated with the 
following serial numbers. These numbers are used to recognize and process 
accounts in the financial statements and the corresponding notes. 


PAL Statement 
1 Sales 
2 Coit of Goods 
å Gross Margin 
4 Administrative Expenses 
5 Selling Expenses 
å Financial Charges 


P&L Motes 

101 Sales 

104 Cost of Goods 

108 Administrative Expenses 
109 Selling Expenses 

110 Financial Charges 


Balance Sheet 
Equities 
202 Share Capital 
203 Reserves 
04 Prafit/(Lass) 


Liabilities 

206 Trade Creditors negative gures moved to Trade Debts 223) 

207 Accrued Expenics 

208 Short Term Finance 

209 Advance Fram Customers (aegis gurer moved fo Trade Debu 224) 
211 Accumulated Depreciation 

213 Long Term Liabilities 


Fixed Asset: 

217 Bullding 

218 Office Equipment 
219 Vehicles 

221 Stock in Trade 


Current Arrels 
222 Trade Debt: (negative figures moved to Advance From Customer 210) 
225 Cath & Bank (negative Hører moved fo Banks Overdrah 212) 
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Generate Profit & Loss process continued...> 


BEGIN 
delete from gl fs report where upper(userid)=upper(:APP USER); 
-- Delete existing report of the user 


commit; 

if :APP PAGE ID = 76 then -- Financial Statements Page 
Vcocode := : P76_COCODE ; This IF conditions evaluate which page this process was 
Vconame := :P76 CONAME; called from. Note that it is called from Financial 
VreportCode := :P76 REPORTCODE; PØNNNN 





VcurrentFromDate := :P76 CURRENTFROMDATE; 
VcurrentToDate := :P76 CURRENTTODATE; 
VpreviousFromDate := :P76 PREVIOUSFROMDATE ; 
VpreviousToDate := :P76 PREVIOUSTODATE; 
VcurrentYear := :P76 CURRENTYEAR; 
Vcomonthname := :P76 COMONTHNAME ; 

elsif :APP PAGE ID = 1 then -- Desktop Dashboard 
Vcocode := :P1 COCODE; 
Vconame := null; 
VreportCode := :P1 REPORTCODE; 
VcurrentFromDate := :P1 CURRENTFROMDATE; 
VcurrentToDate := :P1 CURRENTTODATE; 
VpreviousFromDate := :P1 PREVIOUSFROMDATE; 
VpreviousToDate := :P1 PREVIOUSTODATE; 
VcurrentYear := :P1 CURRENTYEAR; 
Vcomonthname := null; 

else -- Mobile Home Page 6 
Vcocode := :P6 COCODE; 
Vconame := :P6 CONAME; 
VreportCode := 'BS01'; 
VcurrentFromDate := :P6 CURRENTFROMDATE; 
VcurrentToDate := :P6 CURRENTTODATE; 
VpreviousFromDate := :P6 PREVIOUSFROMDATE; 
VpreviousToDate := :P6 PREVIOUSTODATE; 
VcurrentYear := :P6 CURRENTYEAR; 
VcomonthName := :P6 COMONTHNAME ; 

end if; 

select distinct reportTitle into VreportTitle from gl fs setup where 

cocode=Vcocode and reportCode=VreportCode; 


Generate Profit & Loss process continued...> 


-- Compute Sales 
Vpercent := 0; 
select AccountFrom,AccountTo into VaccountFrom,VaccountTo from gl fs_ 
setup 
where cocode=Vcocode and fsaccount='Sales' ; 
if VaccountFrom is not null and VaccountTo is not null then 
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select sum(TD.vchcr)-sum(TD.vchdr) into VcurrentSales --Current 
Year's Sales 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 
select sum(TD.vchcr)-sum(TD.vchdr) into VpreviousSales --Previous 
Year's Sales 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VpreviousFromDate and VpreviousToDate 
and TM.closing=0; 
Vvariance := nvl(VcurrentSales,0) - nvl(VpreviousSales,0); 
if VpreviousSales <> 0 and VpreviousSales is not null then -- To 
avoid ORA-01476: divisor is equal to zero error 
Vpercent := (Vvariance/VpreviousSales)*100; 
end if; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,1,'Sales',nvl(V 
currentSales,0),nvl(VpreviousSales,0), 
nvl(Vpercent,0),upper(:APP USER), Vconame, VCURRENTYEAR, Vcomonthname,0,0,0 
;null,null,o); 
commit; 


-- Compute Cost of Goods 
Vpercent := 0; 
select AccountFrom,AccountTo into VaccountFrom,VaccountTo from gl fs. 
setup where cocode=Vcocode and 
fsaccount='Cost of Goods'; 
if VaccountFrom is not null and VaccountTo is not null then 
select —sum(TD.vchdr)-sum(TD.vchcr) into VcurrentCOG -- Current 
Year's Cost 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 
select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousCOG -- Previous 
Year's Cost 
from gl tran master TM, gl tran detail TD 
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where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VpreviousFromDate and VpreviousToDate 
and TM.closing=0; 
Vvariance := nvl(VcurrentCOG,0) - nvl(VpreviousC0G, 0) ; 
if VpreviousCOG <> 0 and VpreviousCOG is not null then 
Vpercent := (Vvariance/VpreviousCOG)*100; 
end if; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,3,'Cost of Goods 
',nvl(VcurrentC0G,0),nvl(VpreviousC0G,0), 
nvl(Vpercent,0),upper(:APP USER),Vconame,VCURRENTYEAR, Vcomonthname,0,0,0 
,null,null,o); 


commit; 
VcurrentGrossMargin := nvl(VcurrentSales,0) - nvl(VcurrentCOG,0); 
VpreviousGrossMargin := nvl(VpreviousSales,0) - nvl(VpreviousCOG,0); 


Vvariance := nvl(VcurrentGrossMargin,0)-nvl(VpreviousGrossMargin,0) ; 

if VpreviousGrossMargin <> 0 and VpreviousGrossMargin is not null then 
Vpercent := (Vvariance/VpreviousGrossMargin)*100; 

end if; 

insert into gl fs report values (VreportCode,VreportTitle,7,'.....Gross 

Margin’ ,nvl(VcurrentGrossMargin,0), 

nvl(VpreviousGrossMargin,0),nvl(Vpercent,0),upper(:APP USER) ,Vconame, VCUR 

RENTYEAR , Vcomonthname, 

1,0,0,null,null,o); 

commit; 


-- Compute Administrative Expenses 
Vpercent := 0; 
select AccountFrom,AccountTo into VaccountFrom,VaccountTo from gl fs_ 
setup where cocode=Vcocode and 
fsaccount='Admin' ; 
if VaccountFrom is not null and VaccountTo is not null then 
select —sum(TD.vchdr)-sum(TD.vchcr) into VcurrentAdmin 
-- Current Year's Admin Expenses 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 
select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousAdmin 
-- Previous Year's Admin Expenses 
from gl tran master TM, gl tran detail TD 
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where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VpreviousFromDate and VpreviousToDate 
and TM.closing=0; 
Vvariance := nvl(VcurrentAdmin,o) - nvl(VpreviousAdmin,0) ; 
if VpreviousAdmin <> 0 and VpreviousAdmin is not null then 
Vpercent := (Vvariance/VpreviousAdmin)*100; 
end if; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,8,'Administrati 
ve Expenses’ ,nvl(VcurrentAdmin,o), 
nvl(VpreviousAdmin,O), nvil(Vpercent,0),upper(:APP USER) , Vconame, VCURRENTY 
EAR, Vcomonthname,0,0,0,null,null,o); 
commit; 


-- Compute Selling & Marketing Expenses 
Vpercent := 0; 
select AccountFrom,AccountTo into VaccountFrom,VaccountTo from gl fs_ 
setup where cocode=Vcocode and 
fsaccount= Selling’ ; 
if VaccountFrom is not null and VaccountTo is not null then 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentSelling 
-- Current Year's Selling Expenses 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 
select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousSelling 
-- Previous Year's Selling Expenses 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VpreviousFromDate and VpreviousToDate 
and TM.closing=0; 
Vvariance := nvl(VcurrentSelling,0) - nvl(VpreviousSelling,0); 
if VpreviousSelling <> O and VpreviousSelling is not null then 
Vpercent := (Vvariance/VpreviousSelling)*100; 
end if; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,9, ‘Selling Expe 
nses' ,nvl(VcurrentSelling,0), 
nvl(VpreviousSelling,0),nvl(Vpercent,0),upper(:APP USER),Vconame, VCURRENT 
YEAR, Vcomonthname,0,0,0,null,null,o); 
commit; 
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-- Compute Financial Charges 
Vpercent := 0; 
select AccountFrom,AccountTo into VaccountFrom,VaccountTo from gl fs_ 
setup where cocode=Vcocode and 
fsaccount='Financial' ; 
if VaccountFrom is not null and VaccountTo is not null then 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentFinancial -- 
Current Year's Financial Expenses 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 
select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousFinancial  -- 
Previous Year's Financial Expenses 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode between VaccountFrom and VaccountTo and 
TM.vchdate between VpreviousFromDate and VpreviousToDate 
and TM.closing=0; 


Vvariance := nvl(VcurrentFinancial,o) - nvl(VpreviousFinancial,0) ; 
if VpreviousFinancial <> 0 and VpreviousFinancial is not null then 
Vpercent := (Vvariance/VpreviousFinancial)*100; 
end if; 
end if; 


insert into gl fs report values (VreportCode,VreportTitle,10,'Financial 
Charges’ ,nvl(VcurrentFinancial,o), 
nvl(VpreviousFinancial,0),nvl(Vpercent,0),upper(:APP USER) , Vconame , VCURRE 
NTYEAR , Vcomonthname,0,0,0,null,null,o); 

commit ; 


VcurrentProfitLoss := nvl(VcurrentGrossMargin,0)-nvl(VcurrentAdmin,0)+nvl 
(VcurrentSelling,0)+nvl(VcurrentFinancial,o)); 
VpreviousProfitLoss := nvl(VpreviousGrossMargin,O) - (nvl(VpreviousAdmin, 
0)+nvl(VpreviousSelling,0) 
+nvl(VpreviousFinancial,o)); 

Vvariance := nvl(VcurrentProfitLoss,0) - nvl(VpreviousProfitLoss,0); 
if VpreviousProfitLoss <> 0 and VpreviousProfitLoss is not null then 

Vpercent := (Vvariance/VpreviousProfitLoss)*100; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,11, 'Net Profit/ 
(Loss)' ,nvl(VcurrentProfitLoss,0), 
nvl(VpreviousProfitLoss,0),nvi(Vpercent,0),upper(:APP USER),Vconame, VCURR 
ENTYEAR, Vcomonthname, 
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0,1,0,null,null,1); 
commit; 


-- Sales Notes 
declare 
cursor sales cur is 
select coacode,coatitle from gl coa 
where coacode between (select accountfrom from gl fs setup where 
cocode=Vcocode and reportcode=VreportCode 
and fsaccount='Sales') and (select accountto from gl fs 
setup where cocode=Vcocode 
and reportcode=VreportCode and fsaccount='Sales') and 
coalevel=4 and cocode=Vcocode 
order by coacode; 
Sales rec sales curÆROWTYPE; 
begin 
for sales rec in sales cur loop 
Vcoacode := sales rec.coacode; 
Vcoatitle := sales rec.coatitle; 
select sum(TD.vchcr)-sum(TD.vchdr) into VcurrentBalance 
-- Current Year's Sales 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 


select sum(TD.vchcr)-sum(TD.vchdr) into VpreviousBalance 
-- Previous Year's Sales 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VpreviousFromDate and 
VpreviousToDate and TM.closing=0; 
Vvariance := nvl(VcurrentBalance,0) - nvl(VpreviousBalance,0) ; 
if VpreviousBalance <> 0 and VpreviousBalance is not null then 
Vpercent := (Vvariance/VpreviousBalance)*100; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,101, 'Sale 
s',nvl(VcurrentBalance,0) ,nvl(VpreviousBalance,0), 
nvl(Vpercent,0),upper(:APP USER),Vconame, VCURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode, Vcoatitle,0); 
commit; 
end loop; 
end; 
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-- Cost of Goods Notes 
declare 
cursor cog cur is 
select coacode,coatitle from gl coa 
where coacode between (select accountfrom from gl fs setup where 
cocode=Vcocode and reportcode=VreportCode 
and fsaccount='Cost of Goods') and (select accountto from 
gl fs setup where cocode=Vcocode 
and reportcode=VreportCode and fsaccount='Cost of Goods' ) 
and coalevel=4 and cocode=Vcocode 
order by coacode; 
cog rec cog CurÆROWTYPE; 
begin 
for cog rec in cog cur loop 
Vcoacode := cog rec.coacode; 
Vcoatitle := cog rec.coatitle; 


select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentBalance 
-- Current Year's Cost 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 


select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousBalance 
-- Previous Year's Cost 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VpreviousFromDate and 
VpreviousToDate and TM.closing=0; 


Vvariance := nvl(VcurrentBalance,0) - nvl(VpreviousBalance,0); 
if VpreviousBalance <> 0 and VpreviousBalance is not null then 
Vpercent := (Vvariance/VpreviousBalance)*100; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle, 104, 'Cost 
of Goods',nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0) ,nvl(Vpercent,0),upper(:APP_USER) , Vconame, VC 
URRENTYEAR, Vcomonthname,0,0,1, 
Vcoacode,Vcoatitle,o); 
commit; 
end loop; 
end; 
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-- Administrative Expenses Notes 
Declare 
cursor admin cur is 
select coacode,coatitle from gl coa 
where coacode between (select accountfrom from gl fs setup where 
cocode=Vcocode and reportcode=VreportCode 
and fsaccount='Admin') and (select accountto from gl fs 
setup where cocode=Vcocode 
and reportcode=VreportCode and fsaccount='Admin') and 
coalevel=4 and cocode=Vcocode 
order by coacode; 
admin rec admin_cur4ROWTYPE; 
begin 
for admin rec in admin cur loop 
Vcoacode := admin rec.coacode; 
Vcoatitle := admin rec.coatitle; 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentBalance 
-- Current Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 


select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousBalance 
-- Previous Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VpreviousFromDate and 
VpreviousToDate and TM.closing=0; 


Vvariance := nvl(VcurrentBalance,0) - nvl(VpreviousBalance,0) ; 
if VpreviousBalance <> 0 and VpreviousBalance is not null then 
Vpercent := (Vvariance/VpreviousBalance)*100; 

end if; 
insert into gl fs report values (VreportCode, VreportTitle,108, 'Admi 
nistrative Expenses’ ,nvl(VcurrentBalance,0O), 
nvl(VpreviousBalance,0) ,nvl(Vpercent,0) ,upper(:APP_ USER) ,Vconame, VC 
URRENTYEAR, Vcomonthname,0,0,1, 
Vcoacode, Vcoatitle,0); 
commit; 

end loop; 

end; 
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-- Selling Expenses Notes 
declare 
cursor selling cur is 
select coacode,coatitle from gl coa 
where coacode between (select accountfrom from gl fs setup where 
cocode=Vcocode and reportcode=VreportCode 
and fsaccount='Selling') and (select accountto from gl fs_ 
setup where cocode=Vcocode 
and reportcode=VreportCode and fsaccount='Selling') and 
coalevel=4 and cocode=Vcocode 
order by coacode; 
selling rec selling curZROWTYPE; 
begin 
for selling rec in selling cur loop 
Vcoacode := selling rec.coacode; 
Vcoatitle := selling rec.coatitle; 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentBalance 
-- Current Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 


select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousBalance 
-- Previous Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VpreviousFromDate and 
VpreviousToDate and TM.closing=0; 


Vvariance := nvl(VcurrentBalance,0) - nvl(VpreviousBalance,0); 
if VpreviousBalance <> 0 and VpreviousBalance is not null then 
Vpercent := (Vvariance/VpreviousBalance)*100; 
end if; 
insert into gl fs report values (VreportCode,VreportTitle,109,'Sell 
ing Expenses',nvl(VcurrentBalance,0), 
nvl (VpreviousBalance,0),nvl(Vpercent,0),upper(:APP USER),Vconame,V 
CURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
commit; 
end loop; 
end; 
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-- Financial Charges 
declare 

cursor financial cur is 

select coacode,coatitle from gl coa 

where coacode between (select accountfrom from gl fs setup where 

cocode=Vcocode and reportcode=VreportCode 
and fsaccount='Financial') and (select accountto from 

gl fs setup where cocode=Vcocode 

and reportcode=VreportCode and fsaccount="Financial') and 
coalevel=4 and cocode=Vcocode 

order by coacode; 

financial rec financial curÆROWTYPE; 

begin 
for financial rec in financial cur loop 
Vcoacode := financial rec.coacode; 
Vcoatitle := financial rec.coatitle; 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentBalance 
-- Current Year 
from gl tran master TM, gl tran detail TD 
where —TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VcurrentFromDate and VcurrentToDate 
and TM.closing=0; 


select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousBalance 
-- Previous Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and TD.coacode = Vcoacode and 
TM.vchdate between VpreviousFromDate and 
VpreviousToDate and TM.closing=0; 


Vvariance := nvl(VcurrentBalance,0) - nvl(VpreviousBalance,0) ; 
if VpreviousBalance <> 0 and VpreviousBalance is not null then 
Vpercent := (Vvariance/VpreviousBalance)*100; 

end if; 
insert into gl fs report values (VreportCode,VreportTitle,110, 'Fina 
ncial Charges’ ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0),nvl(Vpercent,0),upper(:APP USER) ,Vconame, VC 
URRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode, Vcoatitle,0); 
commit; 

end loop; 

end; 
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-- P&L Account Balances For Desktop and Mobile Home pages 
if :APP PAGE ID = 1 or :APP_PAGE ID = 6 then -- Desktop dashboard 
or mobile home page 
declare 
VaccountTitle varchar2(50); 
cursor pl cur is 
select srno,currentbalance, previousbalance 
from gl fs report 
where upper(userid)=upper(:APP USER) 
order by srno; 
pl rec på curÆROWTYPE; 


begin 
delete from gl dashboard where upper(userid)=upper(:APP USER); 
commit; 
for på rec in på cur loop 
Vsrno := på rec.srno; 
VcurrentYear := på rec.currentBalance; 
VpreviousYear := pl rec.previousBalance; 
if Vsrno=1 then 
VaccountTitle := 'Sales'; 
elsif Vsrno=3 then 
VaccountTitle := 'Cost of Goods'; 
elsif Vsrno=7 then 
VaccountTitle := ‘Gross Margin’; 
elsif Vsrno=8 then 
VaccountTitle := ‘Administrative Expenses'; 
elsif Vsrno=9 then 
VaccountTitle := ‘Selling Expenses'; 
elsif Vsrno=10 then 
VaccountTitle := ‘Financial Charges’ ; 
else 
VaccountTitle := 'Net Profit/(Loss)'; 
end if; 
insert into gl dashboard values (Vsrno,VaccountTitle,VcurrentYea 
r,VpreviousYear,upper(:APP USER),null,null,null); 
commit; 
end loop; 
end; 
-- P&L Ratio 
declare 


VcurrentGP number; VpreviousGP number; VcurrentNP number; 
VpreviousNP number; VcurrentOP number; 

VpreviousOP number; VcurrentGPratio number; VpreviousGPratio 
number; VcurrentOPratio number; 
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VpreviousOPratio number; VcurrentNPratio number; VpreviousNPratio 
number; 
begin 
Gross Profit 
select currentYear,previousYear into VcurrentGP,VpreviousGP from 
gl dashboard 
where srno=7 and upper(userid)=upper(:APP USER); 
Net Sales 
select currentYear,previousYear into VcurrentSales,VpreviousSales 
from gl dashboard 
where srno=1 and upper(userid)=upper(:APP USER); 
Admin Expenses 
select currentYear,previousYear into VcurrentAdmin, VpreviousAdmin 
from gl dashboard 
where srno=8 and upper(userid)=upper(:APP USER); 
Selling Expenses 
select currentYear,previousYear into VcurrentSelling,VpreviousSelli 
ng from gl dashboard 
where srno=9 and upper(userid)=upper(:APP USER); 
Net Profit 
select currentYear,previousYear into VcurrentNP,VpreviousNP from 
gl dashboard 
where srno=11 and upper(userid)=upper(:APP USER); 


Calculate Operating Profit 
VcurrentOP := (VcurrentGP-(VcurrentAdmin+VcurrentSelling)); 
VpreviousOP := (VpreviousGP-(VpreviousAdmin+VpreviousSelling)); 
Calculate GP Ratios 
VcurrentGPratio := (VcurrentGP/VcurrentSales) * 100; 
VpreviousGPratio := (VpreviousGP/VpreviousSales) * 100; 
Calculate OP Ratios 
VcurrentOPratio := VcurrentOP/VcurrentSales * 100; 
VpreviousOPratio := VpreviousOP/VpreviousSales * 100; 
Calculate NP Ratios 
VcurrentNPratio := VcurrentNP/VcurrentSales * 100; 
VpreviousNPratio := VpreviousNP/VpreviousSales * 100; 


insert into gl dashboard values (50,'-',VcurrentGP,VpreviousGP, upp 
er(:APP_USER), 
‘Gross Profit Ratio’ ,VcurrentGPratio, VpreviousGPratio) ; 
insert into gl dashboard values (52,'-',VcurrentOP,VpreviousOP, upp 
er(:APP_USER), 
‘Operating Profit Ratio',VcurrentOPratio, VpreviousOPratio) ; 
insert into gl dashboard values (53, '-',VcurrentNP,VpreviousNP, upp 
er(:APP_USER), 
‘Net Profit Ratio’ ,VcurrentNPratio, VpreviousNPratio) ; 
commit; 
end; 
end if; 
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-- The REDIRECT URL procedure of the APEX_UTIL package below redirects to 
the page from where this application process 


was called 
if :APP_PAGE ID = 76 then -- Financial Statements Report 
apex util.redirect url (p url => 'f?p=8APP_ID.:76:&SESSION. '); 
elsif :APP PAGE ID = 1 then -- Desktop Dashboard 
apex util.redirect url (p url => 'f?p=8APP_ID.:1:&SESSION.'); 
else -- Mobile Home Page 6 


apex util.redirect url (p url => 'f?p=8APP_ID.:6:&SESSION.'); 
end if; 
END; 


Generate Balance Sheet 


DECLARE 
VreportCode varchar2(4); 
VreportTitle varchar2(50); 
Vcocode number; 
Vconame varchar2(50); 
VcurrentYear number; 
VpreviousYear number; 
VcurrentFromDate date; 
VcurrentToDate date; 
Vcomonthname varchar2(9); 
VpreviousFromDate date; 
VpreviousToDate date; 
VaccountFrom varchar2(11); 
VaccountTo varchar2(11); 
VcurrentSales number := 0; 
VpreviousSales number := 0; 
VcurrentOpeningStock number := 0; 
VpreviousOpeningStock number := 0; 
VcurrentClosingStock number := 0; 
VpreviousClosingStock number := 0; 
VcurrentCOG number := 0; 
VpreviousCOG number := 0; 
VcurrentGrossMargin number := 0; 
VpreviousGrossMargin number := 0; 
VcurrentAdmin number := 0; 
VpreviousAdmin number := 0; 
VcurrentSelling number := 0; 
VPreviousSelling number := 0; 
VcurrentFinancial number := 0; 
VpreviousFinancial number := 0; 
VcurrentProfitLoss number := 0; 
VpreviousProfitLoss number := 0; 
Vvariance number := 0; 


ov 
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Vpercent number := 0; 
Vpercent2 number := 0; 
Vcoacode varchar2(11); 
vcoatitle varchar2(50); 
VcurrentBalance number := 0; 
VpreviousBalance number := 0; 
Vsrno number := 0; 

Vrecords number := 0; 
VfsAccount varchar2(50); 
VcurrentPL number := 0; 
VpreviousPL number := 0; 
VCURRENTMONTH number(2) := 0; 
VTESTVALUE NUMBER := 0; 
Vnotes number := 0; 
VnotesCode varchar2(11); 


-- Balance Sheet Notes 
BEGIN 
if :APP PAGE ID = 76 then 

Vcocode := :P76 COCODE; 
Vconame := :P76 CONAME; 
VreportCode := :P76 REPORTCODE; 
VcurrentToDate := :P76 CURRENTTODATE; 
VpreviousToDate := :P76 PREVIOUSTODATE; 
VcurrentYear := :P76 CURRENTYEAR; 
VCURRENTMONTH := :P76 CURRENTMONTH; 
VcomonthName := :P76 COMONTHNAME ; 


elsif :APP PAGE ID = 1 then -- Desktop Dashboard 
Vcocode := :P1 COCODE; 
Vconame := null; 


VreportCode := :P1 REPORTCODE; 
VcurrentToDate := :P1 CURRENTTODATE; 
VpreviousToDate := :P1 PREVIOUSTODATE; 
VcurrentYear := :P1 CURRENTYEAR; 
VCURRENTMONTH := :P1 CURRENTMONTH; 
VcomonthName := null; 

else -- Mobile Home Page 6 
Vcocode := :P6 COCODE; 
Vconame := :P6 CONAME; 
VreportCode := 'BS01'; 
VcurrentToDate := :P6 CURRENTTODATE; 
VpreviousToDate := :P6 PREVIOUSTODATE; 
VcurrentYear := :P6 CURRENTYEAR; 
VCURRENTMONTH := :P6 CURRENTMONTH; 
VcomonthName := :P6 COMONTHNAME ; 

end if; 


382 


declare 
cursor fs cur is 
select fsAccount,AccountFrom,AccountTo 
from gl fs setup 
where reportcode=VreportCode; 
fs rec fs curÆROWTYPE; 
begin 


select count(*) into Vrecords from gl fs setup where 


reportcode=VreportCode; 
if Vrecords > 0 then 
for fs rec in fs cur loop 
VfsAccount := fs rec.fsAccount; 
VaccountFrom := fs rec.AccountFrom; 
VaccountTo := fs rec.AccountTo; 
Declare 
Vcoacode varchar2(11); 
vcoatitle varchar2(50); 
VcurrentBalance number := 0; 
VpreviousBalance number := 0; 
VinsertSwitch number := 0; 
VclosingEntry number := 0; 
cursor coa_cur is 
select coacode,coatitle 
from gl coa 


where coacode between VaccountFrom and VaccountTo and 


coalevel=4 and cocode=Vcocode 

order by coacode; 

coa rec coa CurÆROWTYPE; 

Begin 

for coa rec in coa cur loop 
VinsertSwitch := 0; 
Vcoacode := coa rec.coacode; 
Vcoatitle := coa rec.coatitle; 


-- Equities & Liabilities 


APPENDIX 


BOOK CODE 


if VfsAccount='Share Capital' or VfsAccount='Reserves' or 


VfsAccount='Profit/(Loss)' or 


VfsAccount='Trade Creditors' or VfsAccount="Accrued 
Expenses' or VfsAccount='Short Term Finance’ or 
VfsAccount='Advance From Customers' or 
VfsAccount='Accumulated Depreciation’ or 


VfsAccount='Banks Overdrafts' or VfsAccount='Long Term 


Liabilities’ then 
if VfsAccount='Profit/(Loss)' then 
VclosingEntry := 0; 
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select count(*) into VclosingEntry from gl tran_ 
master 
where closing=1 and cocode=Vcocode and 
coyear=VCURRENTYEAR; 
if VclosingEntry = 0 then 
select —sum(TD.vchcr)-sum(TD.vchdr) into 
VcurrentBalance -- Current Vear 
from gl tran master TM, gl tran detail TD 
where —TM.cocode=TD.cocode and TM.tran no=TD. 
tran no and TM.cocode=Vcocode and 
TD.coacode=Vcoacode and TM.vchdate 
<= VcurrentToDate; 
else 
if VCURRENTMONTH = 12 then -- Exclude calculated 
P&L value if it is the last month because the last 
month 
carries the closing entry with P&L figures. 
update gl fs report set currentBalance=0 where 
fsAccount like '%Profit/(Loss)%' and 
upper(userid)=upper(:APP USER) and 
reportCode=VreportCode; 


commit; 
end if; 
select sum(TD.vchcr)-sum(TD.vchdr) into 
VcurrentBalance -- Current Year 


from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran 
no and TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate 
<= VcurrentToDate; 
end if; 
if VCURRENTMONTH = 12 then 
update gl fs report set previousBalance=0 where 
fsAccount like '%Profit/(Loss)%' and 
upper (userid)=upper(:APP USER) and 
reportCode=VreportCode; 


commit; 
end if; 
select sum(TD.vchcr)-sum(TD.vchdr) into 
VpreviousBalance -- Previous Year 


from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no 
and TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate 
<= VpreviousToDate; 
else -- Other than Profit/(Loss) account 
select sum(TD.vchcr)-sum(TD.vchdr) into 
VcurrentBalance -- Current Year 
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from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no 
and TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate 
<= VcurrentToDate; 
select sum(TD.vchcr)-sum(TD.vchdr) into 


VpreviousBalance -- Previous Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no 


and TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate <= 
VpreviousToDate; 


end if; 

if VfsAccount = ‘Share Capital’ then 
insert into gl fs report values (VreportCode,VreportTi 
tle,202,'.......Share Capital',nvl(VcurrentBalance,0o), 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconame,V 
CURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode, Vcoatitle,0); 

end if; 


if VfsAccount = 'Reserves' then 
insert into gl fs report values (VreportCode, Vrepor 
tTitle,203,'.......Reserves' ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0) ,0,upper(:APP_USER) ,Vconame, V 
CURRENTYEAR, Vcomonthname, 
0,0,1,Vcoacode, Vcoatitle,0); 
end if; 


if VfsAccount = 'Profit/(Loss)' then 
insert into gl fs report values (VreportCode,VreportTit 
le, 204, '...+++eProfit/(Loss)' ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconame,V 
CURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode, Vcoatitle,0); 
end if; 


if VfsAccount = ‘Trade Creditors’ then 

if nvl(VcurrentBalance,0) >= 0 and 

nvl(VpreviousBalance,0) >= 0 then 
insert into gl fs report values (VreportCode,Vrepo 
rtTitle,206,'......elrade Creditors’ ,nvl(VcurrentB 
alance,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconane, 
VCURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
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end if; 

if VcurrentBalance >= 0 and VpreviousBalance < 0 then 
insert into gl fs report values (VreportCode,Vrepor 
tTitle,206,'.......Trade Creditors’ ,nv1(VcurrentBal 
ance,0), 
0,0,upper(:APP USER),Vconame, VCURRENTYEAR, Vcomonthna 
me,0,0,1, Vcoacode, Vcoatitle,o); 

end if; 

if VcurrentBalance < 0 and VpreviousBalance >= 0 then 
nsert into gl fs report values (VreportCode,VreportT 
itle,206,'.......lrade Creditors’ ,0, 
nvl(VpreviousBalance,0),0,upper(:APP USER) ,Vconame, V 
CURRENTYEAR, Vcomonthname,0,0,1, 


Negative balances of Trade Creditors 


Vcoacode,Vcoatitle, 0) ) moved to Trade Debts section. 


end if; 
if VcurrentBalance < 0 then 
VcurrentBalance := VcurrentBalance- 
(VcurrentBalance * 2); 
insert into gl fs report values (VreportCode, VreportT 
itle,223,'...ee..trade Debts' ,nvl(VcurrentBalance,0O), 
0,0,upper(:APP_USER) , Vconame, VCURRENTYEAR, Vcomonthna 
me ,0,0,1,Vcoacode, Vcoatitle, 0); 
VinsertSwitch := 1; 
end if; 
if VpreviousBalance < 0 then 
VpreviousBalance := VpreviousBalance- 
(VpreviousBalance * 2); 
if VinsertSwitch = 0 then 
insert into gl fs report values (VreportCode,Vre 
portTitle,223,'.......Trade Debts',0,nvl(Vprevio 
usBalance,0), 
0,upper(:APP USER), Vconame, VCURRENTYEAR, Vcomonthn 
ame,0,0,1, Vcoacode, Vcoatitle,o); 





else 
update gl fs report set previousBalance = 
VpreviousBalance 
where srno=223 and upper(userid)=upper(:APP_ 
USER); 
end if; 
end if; 


end if; 


APPENDIX ™ BOOK CODE 


if VfsAccount = ‘Accrued Expenses’ then 
insert into gl fs report values (VreportCode,VreportTit 
le,207,'...++e.Accrued Expenses’ ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER) ,Vconame,VCUR 
RENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = ‘Short Term Finance' then 
insert into gl fs report values (VreportCode,VreportTi 
tle,208,'.......Short Term Finance’ ,nvl(VcurrentBalan 
ce,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconame,VCUR 
RENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = ‘Advance From Customers’ then 
if nvl(VcurrentBalance,0) >= 0 and 
nvl(VpreviousBalance,0) >= 0 then 
insert into gl fs report values (VreportCode,Vreport 
Title,209,'......eAdvance From Customers’ , 
nvl(VcurrentBalance,0),nvl(VpreviousBalance,0),0,upp 
er(:APP_USER) ,Vconame, VCURRENTYEAR, 
Vcomonthname,0,0,1,Vcoacode,Vcoatitle,0); 
end if; 
if VcurrentBalance >= 0 and VpreviousBalance < 0 then 
insert into gl fs report values (VreportCode,Vreport 
Title,209,'......eAdvance From Customers’ , 
nvl(VcurrentBalance,0),0,0,upper(:APP_ 
USER), Vconame, VCURRENTYEAR, 
Vcomonthname,0,0,1, Vcoacode, Vcoatitle,o); 
end if; 
if VcurrentBalance < 0 and VpreviousBalance >= 0 then 
insert into gl fs report values (VreportCode,Vreport 
Title,209,'......eAdvance From Customers’ ,0, 
nvl(VpreviousBalance,0) ,0,upper(:APP_ 
USER), Vconame, VCURRENTYEAR, 
Vcomonthname,0,0,1, Vcoacode, Vcoatitle,o); 
end if; 
if VcurrentBalance < 0 then 
VcurrentBalance := VcurrentBalance- 
(VcurrentBalance * 2); 
insert into gl fs report values (VreportCode,Vrepo 
rtTitle,224,'......eTrade Debts' ,nvl(VcurrentBalan 
ce,0), 
0,0,upper(:APP USER),Vconame, VCURRENTYEAR , Vcomonthna 
me ,0,0,1,Vcoacode,Vcoatitle,0); 
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VinsertSwitch := 





end if; 
if VpreviousBalance < 0 then 
VpreviousBalance := VpreviousBalance- 
(VpreviousBalance * 2); 
if VinsertSwitch = 0 then 
insert into gl fs report values (VreportCode,Vrep 
ortTitle,224,'.......trade Debts’ ,0, 
nvl(VpreviousBalance,0) ,0,upper(:APP_USER) ,Vconam 
e, VCURRENTYEAR, Vcomonthname, 
0,0,1,Vcoacode, Vcoatitle,0); 


else 
update gl fs report set previousBalance = 
VpreviousBalance 
where srno=224 and upper(userid)=upper(:APP_ 
USER); 

end if; 

end if; 
end if; 


if VfsAccount = ‘Accumulated Depreciation’ then 
insert into gl fs report values (VreportCode, VreportTit 
le,211,'......eAccumulated Depreciation, 
nvl(VcurrentBalance,0),nvl(VpreviousBalance,0),0,upper 
(:APP USER), 
Vconame, VCURRENTYEAR, Vcomonthname,0,0,1, Vcoacode, Vcoat 
itle,0); 

end if; 

if VfsAccount = ‘Long Term Liabilities’ then 
insert into gl fs report values (VreportCode, VreportTit 
le,213,'.+eee-eLong Term Liabilities’ , 
nvl(VcurrentBalance,0),nvl(VpreviousBalance,0),0,upper( 
: APP USER), Vconame, VCURRENTYEAR, 
Vcomonthname,0,0,1, Vcoacode, Vcoatitle,o); 

end if; 

commit; 


end if; 


if VfsAccount='Building' or VfsAccount='Office Equipment' or 
VfsAccount='Vehicles' or VfsAccount='Stock in Trade' 
or VfsAccount='Trade Debts’ or VfsAccount='Cash and Bank’ then 
select sum(TD.vchdr)-sum(TD.vchcr) into VcurrentBalance 
-- Current Year 
from gl tran master TM, gl tran detail TD 
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where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate <= 
VcurrentToDate; 


select sum(TD.vchdr)-sum(TD.vchcr) into VpreviousBalance 
-- Previous Year 
from gl tran master TM, gl tran detail TD 
where TM.cocode=TD.cocode and TM.tran no=TD.tran no and 
TM.cocode=Vcocode and 
TD.coacode = Vcoacode and TM.vchdate <= 
VpreviousToDate; 


if VfsAccount = ‘Building’ then 
insert into gl fs report values (VreportCode,VreportTit 
le, 217, '.eee.. Building’ ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0) ,0,upper(:APP_USER) ,Vconame, VCUR 
RENTYEAR , Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = ‘Office Equipment’ then 
insert into gl fs report values (VreportCode,VreportT 
itle,218,'.......0ffice Equipment’ ,nvl(VcurrentBalan 
ce,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER) ,Vconame, VCUR 
RENTYEAR , Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = 'Vehicles' then 
insert into gl fs report values (VreportCode,VreportTit 
le,219,'..e.e.eWehicles' ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER) ,Vconame, VCUR 
RENTYEAR , Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = ‘Stock in Trade' then 
insert into gl fs report values (VreportCode,VreportTi 
tle,221,'.......Stock in Trade’ ,nvl(VcurrentBalance,o), 
nvl(VpreviousBalance,0) ,0,upper(:APP_USER) ,Vconame, VCUR 
RENTYEAR , Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
end if; 
if VfsAccount = ‘Trade Debts’ then 
if nvl(VcurrentBalance,0) >= 0 and 
nvl(VpreviousBalance,0) >= 0 then 
insert into gl fs report values (VreportCode, Vrepo 
rtTitle,222,'.......Ttrade Debts' ,nvl(VcurrentBalan 
ce,0), 
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nvl(VpreviousBalance,0),0,upper(:APP USER),Vconame,V 
CURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 

end if; 

if VcurrentBalance >= 0 and VpreviousBalance < 0 then 
insert into gl fs report values (VreportCode,Vrepo 
rtTitle,222,'..--oooTrade Debts' ,nvl(VcurrentBalan 
ce,0), 
0,0,upper(:APP USER),Vconame, VCURRENTYEAR, Vcomonthna 
me,0,0,1, Vcoacode, Vcoatitle,o); 

end if; 

if VcurrentBalance < 0 and VpreviousBalance >= 0 then 
insert into gl fs report values (VreportCode,Vrepor 
tTitle,222,'.......Trade Debts',0,nvl(VpreviousBala 
nce,0), 
0, upper(:APP USER), Vconame, VCURRENTYEAR, Vcomonthname 
,0,0,1, Vcoacode, Vcoatitle,o); 


Negative Trade Debt balances moved to 


end if; 

if VcurrentBalance < 0 then 
VcurrentBalance := VcurrentBalance- 
(VcurrentBalance * 2); 
insert into gl fs report values (VreportCode,Vreport 
Title,210, '.....«.eeAdwance From Customers’ , 
nvl(VcurrentBalance,0),0,0,upper(:APP USER),Vconame, 
VCURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
VinsertSwitch := 1; 

end if; 


Advance From Customers section. 





if VpreviousBalance < 0 then 

VpreviousBalance := VpreviousBalance- 

(VpreviousBalance * 2); 

if VinsertSwitch = 0 then 
insert into gl fs report values (VreportCode,Vr 
eportTitle,210, '......eAdvance From Customers',0, 
nvl(VpreviousBalance,0) ,0,upper(:APP_USER) , Vconam 
e, VCURRENTYEAR, Vcomonthname, 
0,0,1,Vcoacode, Vcoatitle,0); 

else 
update gl fs report set previousBalance = 
VpreviousBalance 
where srno=210 and upper(userid)=upper 
(:APP USER); 

end if; 
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end if; 
end if; 


if VfsAccount = ‘Cash and Bank’ then 

if nvl(VcurrentBalance,0) >= 0 and 

nvl(VpreviousBalance,0) >= 0 then 
insert into gl fs report values (Vrepor 
tCode, VreportTitle,225,'......eCash and 
Bank’ ,nvl(VcurrentBalance,0), 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconame,V 
CURRENTYEAR, Vcomonthname, 
0,0,1, Vcoacode, Vcoatitle,0); 

end if; 

if VcurrentBalance >= 0 and VpreviousBalance < 0 then 
insert into gl fs report values (Vrepor 
tCode,VreportTitle,225,'.-+++--Cash and 
Bank' ,nvl(VcurrentBalance,0), 
0,0,upper(:APP USER),Vconame, VCURRENTYEAR , Vcomonthna 
me,0,0,1, Vcoacode, Vcoatitle,0); 

end if; 

if VcurrentBalance < 0 and VpreviousBalance >= 0 then 
insert into gl fs report values (VreportCode,Vrepor 
tTitle,225,'..--0+0--Cash and Bank’ ,0,nvl(VpreviousBa 
lance,0), 
0,upper(:APP USER), Vconame, VCURRENTYEAR, Vcomonthname 
,0,0,1, Vcoacode, Vcoatitle,o); 

end if; 

if VcurrentBalance < 0 then 
VcurrentBalance := VcurrentBalance- 
(VcurrentBalance * 2); 
insert into gl fs report values (VreportCode, Vrepor 
tTitle,212,'......eBanks Overdrafts' ,nvl(VcurrentBa 
lance,0), 
0,0,upper(:APP USER),Vconame, VCURRENTYEAR , Vcomonthna 
me,0,0,1, Vcoacode, Vcoatitle,0); 


VinsertSwitch := 
end if; 
if VpreviousBalance < 0 then 
VpreviousBalance := VpreviousBalance- 
(VpreviousBalance * 2); 
if VinsertSwitch = 0 then 
insert into gl fs report values (VreportCode,Vrep 
ortTitle,212,'......Banks Overdrafts' ,0, 
nvl(VpreviousBalance,0),0,upper(:APP USER),Vconam 
e, VCURRENTYEAR , Vcomonthname, 
0,0,1, Vcoacode,Vcoatitle,0); 
else 
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update gl fs report set previousBalance = 
VpreviousBalance 
where srno=212 and upper(userid)=upper(:APP_ 
USER); 
end if; 
end if; 
end if; 
commit; 
end if; 
end loop; 
End; 
end loop; 


-- Incorporate current Profit/(Loss) into Balance Sheet 
if VreportCode like ‘BS%' then 
select currentBalance,previousBalance into VcurrentPL,VpreviousPL 
from gl fs report 
where fsAccount='Net Profit/(Loss)' and upper(userid)=upper(:APP_ 
USER); 
insert into gl fs report values (VreportCode, VreportTit 
165200," vassaas Profit/(Loss)',nvl(VcurrentPL,0),nvl(VpreviousPL,0), 
0,upper(:APP USER), Vconame, VCURRENTYEAR, Vcomonthname,0,0,1,null,nu 
11,0); 
commit; 
end if; 


delete from gl fs report where currentbalance=0 and previousbalance=0; 
if :APP PAGE ID=76 and VreportCode like 'BS%' then 
delete from gl fs report where srno < 200 and 
upper(userid)=upper(:APP USER); 
commit; 
end if; 
update gl fs report set srno=209 where srno=210 and 
upper(userid)=upper(:APP USER); 
update gl fs report set srno=222 where srno=223 or srno=224 and 
upper(userid)=upper(:APP USER); 
commit; 


end if; 
end; 


-- Club Balance Sheet Accounts 
declare 
cursor fs report cur is 
select srno,fsaccount,sum(currentbalance) currentbalance,sum(previou 
sbalance) previousbalance 
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from gl fs report 

where reportcode = VreportCode and upper(userid) = upper(:APP USER) 

group by srno,fsaccount 

order by srno; 

fs report rec fs report curÆROWTYPE; 

begin 

select distinct reportTitle into VreportTitle from gl fs setup where 

cocode=Vcocode and reportCode=VreportCode; 

if VreportCode like 'BSÆ' then 

for fs report rec in fs report cur loop 
Vsrno := fs report rec.SXno; 
VfsAccount := fs report rec.fsAccount; 
VcurrentBalance := fs report rec.currentBalance; 
VpreviousBalance := fs report rec.previousBalance; 
insert into gl fs report values 
(VreportCode, VreportTitle,Vsrno,VfsAccount,VcurrentBalance, Vprev 
iousBalance,0,upper(:APP USER), 
VCONAME , VCURRENTYEAR , VCOMONTHNAME ,0,0,0,null,null,o); 
commit; 
end loop; 
end if; 
end; 


-- Calculate Balance Sheet Variance/Percentage 
declare 
cursor fs report cur is 
select srno,fsaccount, currentbalance, previousbalance, notes, notescode 
from gl fs report 
where reportcode = :P76 REPORTCODE and upper(userid) = upper(:APP_ 
USER) 
order by srno; 
fs report rec fs report curÆROWTYPE; 
begin 
for fs report rec in fs report cur loop 
Vsrno := fs report rec.SXno; 
VfsAccount := fs report rec.fsAccount; 
VcurrentBalance := fs report rec.currentBalance; 
VpreviousBalance := fs report rec.previousBalance; 
Vnotes := fs report rec.notes; 
VnotesCode := fs report rec.notesCode; 
Vvariance := VcurrentBalance - VpreviousBalance; 
if VpreviousBalance <> 0 then 


Vpercent := (Vvariance/VpreviousBalance) * 100; 
else 

Vpercent := 0; 
end if; 
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if Vnotes=1 then 
update gl fs report set percent=Vpercent where srno=Vsrno and 
notes=Vnotes and notescode=VnotesCode 
and reportCode=:P76 REPORTCODE and upper(userid)=upper(:APP_ 
USER); 

else 
update gl fs report set percent=Vpercent where srno=Vsrno and 
notes=0 and reportCode=:P76 REPORTCODE 
and upper(userid)=upper(:APP USER); 

end if; 

commit; 

end loop; 
end; 


-- Insert Balance Sheet Headings & Grant Totals 
declare 
VcurrentCapital number := 0; 
VpreviousCapital number := 0; 
VcurrentAsset number := 0; 
VpreviousAsset number := 0; 
begin 
IF :P76 REPORTCODE Like 'BS%' then 
select sum(currentbalance) into VcurrentCapital 
from gl fs report 
where reportcode = :P76 REPORTCODE and upper(userid) = upper(:APP_ 
USER) and srno between 202 and 213 
and notes=0; 


select sum(previousbalance) into VpreviousCapital 

from gl fs report 

where reportcode = :P76 REPORTCODE and upper(userid) = upper(:APP_ 
USER) and srno between 202 and 213 

and notes=0; 


select sum(currentbalance) into VcurrentAsset 

from gl fs report 

where reportcode = :P76 REPORTCODE and upper(userid) = upper(:APP_ 
USER) and srno between 217 and 225 

and notes=0; 


select sum(previousbalance) into VpreviousAsset 

from gl fs report 

where reportcode = :P76 REPORTCODE and upper(userid) = upper(:APP_ 
USER) and srno between 217 and 225 

and notes=0; 
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insert into gl fs report values (:P76 REPORTCODE,VreportTitle, 201, ' 
CAPITAL AND LIABILITIES’ ,null,null,null, upper 

(:APP USER), :P76 CONAME,:P76 CURRENTYEAR, :P76 COMONTHNAME,0,0,0,nu 
ll,null,1); 


insert into gl fs report values (:P76 REPORTCODE,VreportTitle,205,' 
LIABILITIES’ ,null,null,null,upper 

(: APP USER), :P76 CONAME,:P76 CURRENTYEAR, :P76 COMONTHNAME,0,0,0,nu 
ll,null,1); 


insert into gl fs report values (:P76 REPORTCODE,VreportTitle,214, 
"TOTAL CAPITAL AND 

LIABILITIES' ,VcurrentCapital,VpreviousCapital,0,upper(:APP_ 

USER), :P76_CONAME, :P76_CURRENTYEAR, 

:P76 COMONTHNAME,0,1,0,null,null,1); 


insert into gl fs report values (:P76 REPORTCODE,VreportTitle,215,' 
ASSETS' ,null,null,null,upper(:APP USER), 
:P76 CONAME, :P76 CURRENTYEAR, :P76 COMONTHNAME,0,0,0,null,null,1); 


insert into gl fs report values (:P76_ 

REPORTCODE, VreportTitle,216,'...FIXED ASSETS’ ,null,null,null, 
upper(:APP USER),:P76 CONAME,:P76 CURRENTYEAR, :P76 COMONTHNAME,0,0 
,0,null,null,1); 


insert into gl fs report values (:P76_ 

REPORTCODE , VreportTitle, 220, '...CURRENT ASSETS’ ,null,null,null, 
upper(:APP_USER),:P76 CONAME,:P76 CURRENTYEAR, :P76 COMONTHNAME,0,0 
,0,null,null,1); 


insert into gl fs report values (:P76 REPORTCODE,VreportTitle, 226, ' 
TOTAL ASSETS' ,VcurrentAsset, VpreviousAsset,0, 
upper(:APP USER),:P76 CONAME,:P76 CURRENTYEAR, :P76 COMONTHNAME,0, 1 
,0,null,null,1); 
commit ; 
end if; 
end; 


-- Balance Sheet Ratios 
if :APP PAGE ID = 1 or :APP PAGE ID = 6 then -- Desktop dashboard 
or mobile home page 
declare 
VcurrentCA number; 
VpreviousCA number; 
VcurrentCL number; 
VpreviousCL number; 
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VcurrentQCA number; 
VpreviousQCA number; 

Vcurrent CurrentRatio number; 
Vprevious CurrentRatio number; 
Vcurrent_NWC number; 
Vprevious NWC number; 

Vcurrent QuickRatio number; 
Vprevious QuickRatio number; 


begin 
-- Current Assets 


select sum(currentBalance), sum(previousBalance) into VcurrentCA, 
VpreviousCA from gl fs report 
where notes=0 and (srno=221 or srno=222 or srno=225); 


-- Current Liabilities 


-- Quick 


select sum(currentBalance), sum(previousBalance) into VcurrentCL, 
VpreviousCL from gl fs report 
where notes=0 and (srno=206 or srno=207 or srno=208 or srno=209 or 


srno=211 or srno=212); 


Current Assets 

select sum(currentBalance), sum(previousBalance) into VcurrentQCA, 
VpreviousQCA from gl fs report 

where notes=0 and (srno=222 or srno=225); 


-- Current Ratio 


Vcurrent_CurrentRatio := VcurrentCA / VcurrentCL; 
Vprevious CurrentRatio := VpreviousCA / VpreviousCL; 


-- Net Working Capital 


-- Quick 


Vcurrent NWC := VcurrentCA - VcurrentCL; 

Vprevious NWC := VpreviousCA - VpreviousCL; 

Ratio 

Vcurrent QuickRatio := VcurrentQCA / VcurrentCL; 

Vprevious QuickRatio := VpreviousQCA / VpreviousCL; 

insert into gl dashboard values (60, ‘Current Assets',VcurrentCA, Vpr 
eviousCA, upper(:APP_USER), 

‘Current Ratio’ ,Vcurrent_CurrentRatio,Vprevious CurrentRatio) ; 
insert into gl dashboard values (61,'Current Liabilities’ ,VcurrentC 
L,VpreviousCL,upper(:APP_USER), 

‘Current Liabilities’ ,1,1); 

insert into gl dashboard values (62,'Net Working Capital’ ,Vcurrent_ 
NWC,Vprevious NWC,upper(:APP_USER), 

‘Net Working Capital’ ,Vcurrent_NWC,Vprevious NWC); 

insert into gl dashboard values (63, ‘Quick Current Assets',Vcurrent 
QCA, VpreviousQCA,upper(:APP USER), 

‘Quick Ratio',Vcurrent QuickRatio,Vprevious QuickRatio); 

commit; 


end; 
end if; 
-- The REDIRECT URL procedure of the APEX UTIL package below redirects to 
the page from where this application process 
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was called 
if :APP PAGE ID = 76 then -- Financial Statements Report 

apex util.redirect url (p url => 'f?p=8APP_ID.:76:&SESSION. '); 
elsif :APP PAGE ID = 1 then -- Desktop Dashboard 

apex util.redirect url (p url => 'f?p=8APP_ID.:1:&SESSION.'); 
else -- Mobile Home Page 6 

apex util.redirect url (p url => 'f?p=8APP_ID.:6:&SESSION.'); 
end if; 

END; 
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